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CLASSIFICATION CODE CATEGORY 

(Not all categories have programs. Please refer to the INDEX 

to HP BASIC Program Library for available programs in HP BASIC) 



100 DATA HANDLING (VOLUME I) 

101 EDITING 

102 INFORMATION STORAGE AND RETRIEVAL 

103 TABLE HANDLING 

104 CHARACTER/SYMBOL MANIPULATION 

105 CODE/RADIX CONVERSION 

106 DUPLICATION 

107 SORTING AND MERGING 

108 DATA HANDLING UTILITIES 

109 MEDIA CONVERSION 

110 FILE MANAGEMENT 

112 SPECIAL FORMAT DATA TRANSFER 

114 PLOT ROUTINES IN HP BASIC 

200 TESTING, DEBUGGING AND PROGRAMMING AIDS (VOLUME I) 



201 TRACING 

202 INSTRUMENT TEST 

203 DISC/DRUM EQUIPMENT TEST 

204 MAGNETIC TAPE EQUIPMENT TEST 

205 GRAPHIC EQUIPMENT TE^T 

206 MEMORY SEARCH AND DISPLAY 

207 DUMPING 

208 CORE STORAGE TEST 

209 CE-ITRAL PROCESSING UNIT TEST 

210 BREAK POINTS 

21 1 DEBUGGING AIDS 

212 PROGRAMMING AIDS 

213 PAPER TAPE EQUIPMENT TEST 

214 PUNCH CARD EQUIPMENT TEST 

215 PRINTER EQUIPMENT TEST 

216 A/D - D/A EQUIPMENT TEST 

217 TELECOMMUNICATIONS EQUIPMENT TEST 

218 SPECIAL DEVICE EQUIPMENT TEST 

219 DATA ACQUISITION SYSTEMS TEST 



300 MATH AND NUMERICAL ANALYSIS (VOLUME II) 

301 MATHEMATICS. GENERAL 

302 EXTENDED-PRECISION ARITHMETIC 

303 COMPLEX ARITHMETIC 

304 BCD/ASCII ARITHMETIC 

305 ROOLEAN ALGEBRA 

306 FUNCTIONS, COMPUTATION OF 

307 INTERPOLATION/EXTRAPOLATION 

309 CURVE FITTING 

310 NUMERICAL INTEGRATION 

311 POLYNOMIALS AND POLYNOMIAL EQUATIONS 

312 MATRIX OPERATIONS 

313 EIGENVALUES AND EIGENVECTORS 

314 SYSTEMS OF LINEAR EQUATIONS 

315 SYSTEMS OF NON-LINEAR EQUATIONS 

316 INTEGRAL TRANSFORMS 

317 NUMERICAL DIFFERENTIATION 

318 ORDINARY DIFFERENTIAL EQUATIONS 

319 PARTIAL DIFFERENTIAL EQUATIONS 



400 PROBABILITY AND STATISTICS (VOLUME II) 

401 UNIVARIATE AND MULTIVARIATE PARAMETRIC STATISTICS 

402 TIME SERIES ANALYSIS 

403 DISCRIMINANT ANALYSIS 

404 REGRESSION ANALYSIS 

405 RANDOM NUMBER GENERATORS 

406 PROBABILITY DISTRIBUTION SAMPLING 

407 NON-PARAMETRIC STATISTICS 

408 STATISTICS. GENERAL 

409 CORRELATION ANALYSIS 

410 ANALYSIS OF VARIANCE AND COVARIANCE 

41 1 FACTOR ANALYS IS 

412 SCALING 

413 GENERAL PRORARILITY 



505 PHYSICS 

506 MEDICAL SCIENCES 

507 CHEMISTRY 

508 BIOLOGY 

509 ASTRONOMY AND CELESTIAL NAVIGATION 

510 PETROLEUM ENGINEERING 

511 HYDRAULIC ENGINEERING 

512 NUCLEAR ENGINEERING 

513 ELECTRICAL ENGINEERING 

514 MECHANICAL ENGINEERING 

51 5 CIVIL ENGINEERING 

516 CHEMICAL ENGINEERING 

517 AERONAUTICAL ENGINEERING 

518 STRUCTURAL ENGINEERING 
51 9 SYSTEM THEORY 



600 MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (VOLUME III) 

602 PERT 

603 CRITICAL PATH ANALYSIS 

604 OPTIMISATION PROGRAMS 

605 LINEAR PROGRAMMING 

606 DISCRETE SYSTEMS SIMULATION 

607 CONTINUOUS SYSTEMS SIMULATION 

608 FORECASTING TECHNIQUES 
610 DYNAMIC PROGRAMMING 



700 BUSINESS AND MANUFACTURING APPLICATIONS (VOLUME III) 

701 JOB REPORTING 

702 QUALITY ASSURANCE PERFORMANCE ANALYSIS 

703 QUALITY ASSURANCE TESTING 

704 NUMERICAL CONTROL 

705 BILL OF MATERIALS 

706 PAYROLL ACCOUNTING 

707 WORK-IN-PROCESS CONTROL 

708 INVENTORY ANALYSIS 

709 ACCOUNTS PAYABLE 

710 SALES FORECASTING 

711 ACCOUNTS RECEIVABLE 

712 FINANCIAL ANALYSIS 

713 INVESTMENT ANALYSIS 

714 ECONOMIC ANALYSIS 

716 BUDGETING PROGRAMS 

717 BUSINESS INFORMATION SYSTEMS 

718 BUSINESS SERVICES 



800 EDUCATION (VOLUME IV) 

801 MATHEMATICS (EDUCATION) 

810 PROGRAMMING AND COMPUTER SCIENCE (EDUCATION) 

820 ENGINEERING (EDUCATION) 

830 ECONOMICS (EDUCATION) 

833 SCIENCE (EDUCATION) 

850 FINE ARTS (EDUCATION) 

860 SOCIAL SCIENCE (EDUCATION) 

863 HISTORY (EDUCATION) 

870 ENGLISH (EDUCATION) 

871 FOREIGN LANGUAGES (EDUCATION) 

872 READING (EDUCATION) 
880 BUSINESS (EDUCATION) 

885 EDUCATIONAL ADMINISTRATION 

890 VOCATIONAL (EDUCATION) 



900 UNCLASSIFIED (VOLUME V) 



903 GAMES 



500 SCIENTIFIC AND ENGINEERING APPLICATIONS (VOLUME II) 



501 SOCIAL AND REHAVIORAL SCIENCES 

502 GEOPHYSICS 

503 GEOLOGY 

504 OCEANOGRAPHY 
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600 MANAGEMENT SCIENCES AND OPERATIONS RESEARCH 



NAME TITLE 



ORDER NO. 



CPATH CRITICAL PATH EVALUATION 36171 

DECSN TOP MANAGEMENT DECISION GAME 36065 

DYNPRO DYNAMIC PROGRAMMING MODEL 36067 

GCPATH CRITICAL PATH ANALYSIS 36504 

GCPM1 CRITICAL PATH ANALYSIS 36505 

6INTLP LINEAR PROGRAMMING- VAR I ABLES RESTRICTED 36512 

TO VALUES OF ONE OR ZERO 

GLP LINEAR PROGRAMMING 36516 

GLPSA1 LINEAR PROGRAMMING TWO-PHASE SIMPLEX 36517 

METHOD 

GNETFL NETWORK FLOW 36529 

GSSS SMALL SYSTEMS SIMULATOR 36552 

GVOTE COMMITTEE CHOICE ANALYSIS 36550 

LINPRO LINEAR PROGRAMMING MODEL 36068 

LINQUP SOLVES EITHER A LINEAR OR QUADRATIC 36710 

PROGRAMMING PROBLEM 

LNTRND LINEAR TREND FORECASTING 36069 

M/M/l OUEUEING SYSTEM 36655 

M/M/S OUEUEING SYSTEM 36656 

MAXFLO MAXIMUM FLOW IN A CAPACITATED NETWORK 36609 

SHORTR SHORTEST ROUTE PROOBLEM 36610 

TIMDIF FIRST DIFFERENCES, PERCENT CHANGES, 36801 

PERCENT DIFFERENCE 

TRANSP TRANSPORTATION PROBLEM 36230 



700 BUSINESS AND MANUFACTURING APPLICATIONS 



NAME TITLE 



ORDER NO. 



ANNUIT ANNUITY ANALYSIS 36074 

BALSHT PROFORMA INCOME STATEMENT AND BALANCE 36075 

SHEET 

BNDPRC BOND PRICE ANALYSIS 36076 

BNDSWH BOND SWITCH ANALYSIS 36077 

BNDYLD BOND YIELD ANALYSIS 36078 

BNKRSV BANK RESERVE CALCULATIONS 36079 

BUDGET DEPARTMENTAL MANAGER'S BUDGETING PROGRAM 36073 

CAPDCF CAPITAL INVESTMENT ANALYSIS (DISCOUNTED 36825 

CASH FLOW METHOD) 

CAPINV CAPITAL INVESTMENT ANALYSIS 36080 

CSHFL CASH FLOW ANALYSIS 36142 

CTC1 CTC MANUFACTURING PARTS CONTROL 362 10 

CTC2 CTC INVENTORY CONTROL FOR FINISHED 36211 

PRODUCTS 

CTC3 CTC PROJECTION PROGRAMS 36212 

CTC 4 CTC PAYROLL PROGRAMS 36213 

CTC 5 CTC ACCOUNTS RECEIVABLE 36214 

CTC6 CTC ACCOUNTS PAYABLE 36638 

DEPCOM DEPRECIATION METHOD COMPARISON 36082 

DROIPB DISCOUNTED RETURN ON INVESTMENT AND 36179 

PAYBACK 

EQUITY COST OF EQUITY CAPITAL 36083 

EXDRSK EXTENDED RISK ANALYSIS 36084 

EXPEND BUDGET EXPENDITURES VS. TARGETS MONITOR 36111 
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NAME TITLE 



ORDER NO. 



EXSMOO 
FINFLO 

6CHLIN 

GDAPI 

GDP A 

GFNRAT 

GIRRPV 

GKASSF 

GKCOST 

GNMRVB 

GNPSUM 

GRISKA 

GSTKVL 

GTHOR 

GVPDOT 

IATA.l 

IATA.C 

IATATA 

IN/OUT 

INACNT 

INST.MT 

LEASIN 

LENDER 

LESSEE 

LOAN 

MARKOW 

MCOST 

MKBUY 

MORGAG 

REP 

SALES 

SAVING 

STKINC 

STKRTN 

STKSMO 

STKVAL 

TRCK.l 

TRUINT 

VRRC 



EXPONENTIAL SMOOTHING ON PRICE DATA 36085 
CALCULATES PRESENT VALUE - STREAM OF CASH 36711 
FLOWS 

RATING INVESTMENT FUNDS 36503 

ABNORMAL PERFORMANCE INDEX 36507 

EFFICIENT 'CORNER* PORTFOLIOS 36508 

FINANCIAL RATIOS 36510 

INVESTMENT RETURN (CASH FLOW) 36513 

WARRANT PRICE CALCULATION 36514 

PRICE/EARNINGS RATIO CALCULATION 36515 

SECURITIES PORTFOLIO ANALYSIS AND 36530 
DETERMINATION 

GROSS NATIONAL PRODUCT SUMMARY 36086 

RISK ANALYSIS IN CAPITAL INVESTMENT 36543 

STOCK VALUATION 36545 

SECURITIES EPS GROWTH 36553 

PLOTTING DATA 36554 

CALCULATE AIR FREIGHT RATES 36164 

CALCULATES BREAKPOINT OF IATA CONTAINERS 36241 

ANALYSIS OF IATA AND ATA UNITIZATION 368 76 
PROGRAM 

INPUT/OUTPUT ANALYSIS ON ECONOMIC FLOWS 36088 

NATIONAL INCOME * PRODUCT ACCOUNTS 3608 7 

INCOME STATEMENT 36089 

LEASE INCOME 36194 

SIMPLE LOAN ANALYSIS 36090 
LEASE ANALYSIS AS DETERMINED BY THE LESSEE 36091 

LOAN AMORTIZATION 36226 
SECURITIES PORTFOLIO USING MARKOWITZ MODEL 36092 

COMPARE AND EVALUATE UP TO 1000 MORTGAGE 36709 
PAYMENT PLANS SIMULTANEOUSLY 

MAKE-BUY DECISION ANALYSIS 36093 

MORTGAGE ANALYSIS 3609 4 

DATA CENTER INVENTORY REPORT GENERATOR 36177 

SALES COMMISSION REPORT 36095 

COMPOUND INTEREST 36708 

STOCK MERGER INCENTIVE PROGRAM 36096 

STOCK RETURNS REPORT 36098 

EXPONENTIAL SMOOTHING AS A STOCK GUIDE 36099 

STOCK VALUE * EVALUATION REPORT 36100 

CALCULATE TRUCK FREIGHT RATES 36174 

TRUE ANNUAL INTEREST RATE. ANALYSIS 36101 

INVESTMENT STRATEGY ANALYSIS 36557 
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PROGRAM 

NAME TITLE NUMBER 

CPATH : CRITICAL PATH EVALUATION 36171E 

DECSN :TOP MANAGEMENT DECISION GAME 36065C 

DYNPRO: DYNAMIC PROGRAMMING MODEL 36067A 

GCPATH: CRITICAL PATH ANALYSIS 36504A 

GCPM1 : CRITICAL PATH ANALYSIS 36505A 

GINTLP: LINEAR PROGRAMMING-VARIABLES 36512A 

RESTRICTED TO VALUES OF ONE OR ZERO 

GLP : LINEAR PROGRAMMING 36516A 

GLPSA1: LINEAR PROGRAMMING TWO-PHASE SIMPLEX 36517A 

METHOD 

GNETFL: NETWORK FLOW 36529A 

GSSS : SMALL SYSTEMS SIMULATOR 36552A 

GVOTE : COMMITTEE CHOICE ANALYSIS 36550A 

LINPRO: LINEAR PROGRAMMING MODEL 36068C 

LINQUP : SOLVES EITHER A LINEAR OR QUADRATIC 36710A 

PROGRAMMING PROBLEM 

LNTRND: LINEAR TREND FORECASTING 36069A 

MZMZl :QUEUEING SYSTEM 36655A 

MZMZS .-QUEUEING SYSTEM 36656A 

MAXFLO: MAXIMUM FLOW IN A CAPACITATED NETWORK 36609A 

SHORTR: SHORTEST ROUTE PROBLEM 36610A 

TIMDIF: FIRST DIFFERENCES, PERCENT CHANGES, 36801A 

PERCENT DIFFERENCE 

TRANSP : TRANSPORTATION PROBLEM 36230A 
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ANNUIT: ANNUITY ANALYSIS 36074A 

BALSHT:PROFORMA INCOME STATEMENT AND BALANCE 36075A 

SHEET 

BNDPRC:BOND PRICE ANALYSIS 36076B 

BNDSWH:BOND SWITCH ANALYSIS 36077A 

BNDYLDrBOND YIELD ANALYSIS 36078B 

BNKRSV:BANK RESERVE CALCULATIONS 36079A 

BUDGET : DEPARTMENTAL MANAGER'S BUDGETING 36073A 

PROGRAM 

CAPDCF: CAPITAL INVESTMENT ANALYSIS 36825A 

(DISCOUNTED CASH FLOW METHOD) 

CAP INV: CAPITAL INVESTMENT ANALYSIS 36080A 

CSHFL :CASH FLOW ANALYSIS 36142B 

CTC1 :CTC MANUFACTURING PARTS CONTROL 36210B 

CTC2 :CTC INVENTORY CONTROL FOR FINISHED 36211B 

PRODUCTS 

CTC3 :CTC PROJECTION PROGRAMS 36212B 

CTC4 :CTC PAYROLL PROGRAMS 36213B 

CTC5 :CTC ACCOUNTS RECEIVABLE 362 14B 

CTC6 :CTC ACCOUNTS PAYABLE 36638A 

DEPCOM: DEPRECIATION METHOD COMPARISON 36082A 

DROIPB: DISCOUNTED RETURN ON INVESTMENT AND 36179A 

PAYBACK 

EQUITY: COST OF EQUITY CAPITAL 36083A 

EXDRSK: EXTENDED RISK ANALYSIS 36084A 
EXPEND: BUDGET EXPENDITURES VS. TARGETS MONITOR 36111B 
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EXSMOO: EXPONENTIAL SMOOTHING ON PRICE DATA 36085B 

FINFLO: CALCULATES PRESENT VALUE - STREAM OF 36711A 

CASH FLOWS 

GDPA : EFFICIENT 'CORNER* PORTFOLIOS 36508B 

GFNRAT: FINANCIAL RATIOS 36510A 

G I RRPV: INVESTMENT RETURN (CASH FLOW) 36513A 

GKASSF: WARRANT PRICE CALCULATION 36514A 

GKCOST: PRICE/EARNINGS RATIO CALCULATION 36515A 

GNMRVB: SECURITIES PORTFOLIO ANALYSIS AND 36530A 

DETERMINATION 

GNPSUM: GROSS NATIONAL PRODUCT SUMMARY 36086A 

GRISKArRISK ANALYSIS IN CAPITAL INVESTMENT 36543A 

GSTKVL: STOCK VALUATION 36545A 

GTHOR .-SECURITIES EPS GROWTH 36553A 

IATAZ1: CALCULATE AIR FREIGHT RATES 36164B 

IATAZC : CALCULATES BREAKPOINT OF IATA 3624 IB 

CONTAINERS 

INZOUT: INPUT/OUTPUT ANALYSIS ON ECONOMIC FLOWS 36088B 

INACNT: NATIONAL INCOME & PRODUCT ACCOUNTS 36087A 

INSTMT: INCOME STATEMENT 36089B 

LEASIN: LEASE INCOME 36194A 

LENDER: SIMPLE LOAN ANALYSIS 36090A 

LESSEE: LEASE ANALYSIS AS DETERMINED BY THE 36091B 

LESSEE 

LOAN :LOAN AMORTIZATION 36226A 

MARKOW: SECURITIES PORTFOLIO USING MARKOWITZ 36092B 

MODEL 

MCOST : COMPARE AND EVALUATE UP TO 1000 36709A 

MORTGAGE PAYMENT PLANS SIMULTANEOUSLY 

MKBUY :MAKE-BUY DECISION ANALYSIS 36093A 

MORGAG : MORTGAGE ANALYSIS 36094C 

REP :DATA CENTER INVENTORY REPORT GENERATOR 36177A 

SALES : SALES COMMISSION REPORT 36095A 

SAVING: COMPOUND INTEREST 36708A 

SIMLAT: SIMULATION OF INVESTMENT RETURNS WITH 36888-18019 

SENSITIVITY ANALYSIS 

STKINC: STOCK MERGER INCENTIVE PROGRAM 36096A 

STKRTN: STOCK RETURNS REPORT 36098A 

STKVAL: STOCK VALUE AND EVALUATION REPORT 36100A 

TRCKZ1: CALCULATE TRUCK FREIGHT RATES 36174A 

TRUINT:TRUE ANNUAL INTEREST RATE ANALYSIS 36101A 
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MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED P R O G R A M JtS Al3 Av^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CRITICAL PATH EVALUATION 



CPATH 
36171 



This program will compute CPATH and Drint a summary of earliest and latest 
event times and actual and maximum activity times, and indicate which are 
on the critical path. 



Self-explanatory 

The user has the option to enter data from the teletype as it becomes 
necessary, or to enter it internally with data-statements. If entered 
internally, use the following format: 

9900 DATA # of events, list of ID numbers of events 

9901 DATA # of activities, list of (for each activity) the ID # 

of the event preceding it, the ID # of the event 
succeeding it, and the time necessary to complete it. 




m 



The program will handle up to 75 events and 150 activities. 

To change bounds, alter dim-statement 9012 and delete input checks for 
75 and 150. 

At least one activity is necessary. 

For each activity, the predecessor event must have a lower ID # than the 
successor event. 



CPATH, page 2 
RUN 

CPATH 

* CRITICAL PATH * 



DO YOU WISH TO ENTER DATA FROM THE TELETYPE AS IT BECOMES NECESSARY* 
OR TO ENTER IT INTERNALLY WITH 'DATA* -STATEMENTS? (ENTER "T* FOR 
TELETYPE* 'D' OTHERWISE)?T 

HOW MANY EVENTS DO YOU HAVE? 6 

ENTER THE ID NUMBER OF THE FIRST EVENT? I 

THE ID NUMBER OF THE NEXT EVENT? 2 

NEXT? 3 

NEXT?4 

NEXT? 5 

NEXT? 6 

HOW MANY ACTIVITIES DO YOU HAVE? 7 

FOR THE FIRST ACTIVITY* ENTER THE NUMBER OF THE EVENT PRECEEDING IT* 

THE NUMBER OF THE EVENT SUCCEEDING IT* AND THE TIME OF THE ACTIVITY. 

? 1*2*1 

FOR THE NEXT ACTIVITY?2*5* 1 

NEXT?5*6* 1 

NEXT? 1*6* 5 

NEXT?1*3* 1 

NEXT?3*4*1 

NEXT?4*6* 1 



EVENT 



********************************** ******* ** ************ * * ******* 

*** EVENT TIMES *** 

EARLIEST TIME LATEST TIME 

CRITICAL PATH 

3 

3 

4 

4 

5 CRITICAL PATH 



1 





2 


1 


3 


1 


4 


2 


5 


2 


6 


5 



PREDECESSOR 

1 

2 
5 
1 
1 
3 
4 



*** ACTIVITY TIMES *** 



SUCCESSOR 


AC 


2 


1 


5 


1 


6 


1 


6 


5 


3 


I 


4 


1 


6 


1 



ACTUAL TIME 



MAXIMUM TIME 

3 
3 
3 
5 
3 
3 
3 



CRITICAL PATH 



***************************************************** ********** * * 



DO YOU HAVE ANOTHER PROBLEM? C'Y* FOR YES* 'N' FOR NO)?N 
DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED PROGRAM DAoxV 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



TOP MANAGEMENT DECISION GAME 



DECSN 
36065 



This program furnishes the simulated business conditions and the mechanics 
for operating a business game for any number from 10 to 60 participants. 
The participants form into teams representing ficticious companies and 
make decisions on price, promotion, production, capacity, research, incen- 
tives, and training in a one product market. The program provides a set 
of interrelated market and internal conditions that approximate real con- 
ditions, even including some random perturbation. The team decisions are 
converted into results fast enough so the results can be given back to the 
teams during the same class period, enabling the teams to make up to three 
sets of decisions during a two or three hour period. This quick feedback of 
results has been found to have excellent educational reinforcing characteris- 
tics. (See "ECONOMIC BACKGROUND" for further discussion.) An income state- 
ment for each team is printed out. The program recalculates sales units 
when the combination of production cost and beginning inventory are too 
low to meet sales units as generated by the first part of the program. 
Each income statement is completely formated to 7 significant digits and 
each income statement is printed on an 11 inch sheet of paper. 

Data is put into lines 351 to 372. Line 370 is for beginning inventory for 
each team. This is to be entered in order as to team number. Line 371 is 
for training expense and it is to be entered the same as line 370. Line 
372 is for units available for sale. This figure is from form IV line 3 
and this also is to be entered the same as line 370 and line 371. 

Line 370, at the start of the game, is 310000 for all teams. Line 372, at 
the start of the game, is 96000 for all teams. These lines are also 
printed in the new data printout block. Line 372, in the new data block, 
will only be ending inventory from the previous period and the beginning 
inventory for the next period less the new production for that period. 

Because of line 371 there is no need to enter for training in the Data 
block. The (6) is automatically entered in the Data block. 

The first time incentive is instituted it will be understated in the in- 
come statement and it should be corrected manually. Incentive coding is to 
be entered as: 

10 = either skilled or unskilled labor 

20 = both skilled and unskilled labor 

30 = semiskilled labor only 

40 = semiskilled and one other type of labor 

50 = all three types of labor 



None 



Professor Joseph Nordstrom 
Bowling Green University 
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ECONOMIC BACKGROUND 



This game gives the participant practice in making top level management decisions under time pressure. 
The decisions to be made call for attention to the inter-dependencies among the various decision areas, 
in other words, to the need for integrated policy thinking. Through the use of a Hewlett-Packard table 
top computer (Model 2114A with an 8K word memory) which can be brought right into the classroom, the re- 
sults of participant decisions can be made available to them in a very short time after the decisions are 
made. In fact, during a two hour class period, the participants can play two or three periods of the game, 
getting their results back each period only minutes after turning in their decisions. Finally, the simu- 
lated business situation programmed into the computer is considerably more complicated than would be pos- 
sible for a paper and pencil game with the same turn-around speed. All the calculations described below 
are performed as automatic functions of the computer program. 

As is the case in the market place, some carry-over exists in this game from period to period. For ex- 
ample, the promotion contracted for in one period will also affect sales in the following periods. The 
same is true of expenditures for Research and Training. 

This game, departing from the practices present in most similar games, makes the participant teams com- 
pute their own accounting statements. The computer printout does not supply these figures. The parti- 
cipants are thus forced to consider accounting relationships more than otherwise. Experience has shown 
that this feature is a valuable part of this game. 

The participant should develop a sense of the market as he plays. He should attempt to "psych-out" the 
demand relationships as functions of his decisions. It is to his interest, therefore, to adopt somewhat 
more extreme strategies in this game than would be safe under real business conditions. In this way, he 
can learn without cost, and in a short time, lessons that might cost much more, both in time and money 
in the real market. It is worth pointing out especially here the role of strategy in business as opposed 
t0 decision . The participant will learn little from a policy of changing decision rationale frequently. 
He will learn much more from the results of having made a series of decisions according to a certain 
rationale that he wishes to test, i.e., a strategy . This is true in real life and is true in this game. 



Market Demand 

In general, demand is a function of price and promotion; the higher the promotion or the lower the price, 
the higher will be the demand.* The participant must be concerned not only with demand relations, how- 
ever, but also with production costs at various levels of capacity. Inventory costs also must be con- 
sidered. These factors can be controlled to some degree by attention to investment in training, in- 
centive and research activities, but the final results will be dependent on all these elements acting 
together. Finally, there are forces acting on demand that are outside the control of the participants, 
i.e., the general market trends. The game starts off with a growth trend for a few periods to invite 
attention to necessary increases in capacity. Then there is a market decline for a few periods, inviting 
attention to inventory costs and overextended production capability. Finally, there is another rise in 
demand. The result affords an excellent opportunity for the participant to practice forecasting talents. 



*With price the demand relationship is continuous. With promotion, however, the demand rises with pro- 
motion expense up to a maximum of $1,000,000 expense per period, whereupon the promotion effect saturates 
and no further increase in demand results from increased promotional outlay. 
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The market trend is given to the game by the following relationship: 

F2 = 1 + .2P - .036P 2 + .0019P 3 
where P is the number of the period being played. 

The relation of demand to price and promotion is given by the following: 

75 300+S 

Fl = P x 1500+S 

where P is the price and S is the promotion expense. In the case of total demand, mean price and pro- 
motion figures are used. In the case of team demand, the team's price and promotion figures are used. 

For the total demand, the relation is: 

D = N x Fl x F2 x 60,000 

where N is the number of teams. Fl gives the effects of price and promotion, and F2 gives the effect of 
the general market trend. The base demand is seen to be 60,000 units per team. 

In addition to the factors mentioned above, there is a random perturbation of demand figures, so that a 
team's demand will not conform precisely to the functions noted above. This perturbation produces up to 
ten percent variation from the defined functions and can be thought of as the result of extraneous market 
conditions. 



The Production Decision 

The production cost is constant in any given period up to a production level which is 5000 units less 
than full capacity. Above this point, there is a per unit increase of 70 percent for production cost. 
For the participant this will result in gradually increasing average costs as he approaches and exceeds 
capacity. It might be noted that the participant may assume that he cannot produce above capacity. This 
is an erroneous assumption. Production in excess of capacity can be justified theoretically on the basis 
of creating a night shift, or farming some of the work out, etc. 



The Capacity Decision 

The capacity decision is made three periods in advance of the availability of the facilities contracted 
for. The facilities are not paid for until they are ready. The payment results in a reduction of the 
cash, but does not result in a commensurate reduction of profits in the period in which the facilities 
become available. The reduction in profits comes about through a steady state increase in administrative 
or overhead costs, so that, on a period by period basis, the cost is amortized. The amount of return on 
investment for money put into increased plant capacity will be favorable if this extra capacity is used, 
but it will just be extra expense if not used. 



The Research Decision 

Because it has been found advisable in this game for all teams to consider that they are selling the same 
product, research in product design is not appropriate. Therefore, it is assumed that research input is 
for the purpose of improving the process and that success in research will result in lower production 
costs. The research expenditures create a probability of breakthrough, the more expenditure the more 
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the probability. Only one breakthrough is possible in any one period and it lowers the production costs 
by 1.5 percent for every period from the point of breakthrough on. New breakthroughs increase the cost 
saving by the same factor. Obviously, the more production that is scheduled, the larger will be the re- 
sulting saving. The assignment of probabilities of breakthrough results from a random number simulation 
in the program. The characteristics of this probability function are such that a steady $80,000 per per- 
iod investment in inventory yields the best return on investment. 



The Incentive Decision 

It is assumed that trying to apply a wage incentive to either the skilled or unskilled classifications 
will result in no improvement at all, due to the practical difficulties involved. However, applying a 
wage incentive program for the semi-skilled workers will result in some substantial improvement. The 
improvement will take the form of increase in apparent capacity, so that, when a team is producing at or 
above stated capacity, the production costs will be less, enough so that a satisfactory return on invest- 
ment (in the incentive plan) occurs. It is assumed that unit production costs will not be affected, be- 
cause the form of the incentive is such that labor will get as much per unit of production under incentive 
as before. Therefore, savings will result from a reduction in the costs of above capacity production, 
in the manner stated. 



The Training Decision 

The training decision assumes that there will be a lower production cost associated with increased train- 
ing expense. The effect of this training input, however, will attenuate over time so that the effect 
will be far less two or three periods hence than it is directly after instituting the program. 



In Summary 

The carry over of effects (Research, Training, etc.) occurs thru the continual updating of the last (data 
statement) matrix in the printout, as mentioned in the Instructions for the Referee. It is important 
either to carry out this updating thru entering the new data by hand from the last matrix or by entering 
it by tape in the manner described. 

It should be noted that this game was developed for 12 periods of play. If the instructor plays many more 
periods, it would be advisable to move from [P = 12] back to [P = 5, P = 6, etc.]. If this is not done, 
the instructor will find the market tendency rising at a rate without bound. 

In general, there is no existing equity relationship in the case, because there is no fixed asset item 
nor is long term indebtedness or equity mentioned. Some instructors using the game may wish to add these 
figures, making it possible to develop balance sheet relationships and financial ratios which are not 
possible under present conditions. This will be easy to accomplish. 
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INSTRUCTIONS FOR THE REFEREE 

The referee should first make sure that the Basic compiler is in the computer (Hewlett-Packard Model 2114A, 
8K memory) and operative. He should then read in the game tape. After initializing the game program 
according to INSTRUCTIONS FOR INITIALIZING, the game will be ready to play. 

The participants in the game should be divided into teams, ideally no fewer than three, nor more than 
seven participants in each team. It is best when there are at least three teams and the computer program 
will not handle more than eight teams. Each team should be encouraged to select a chairman (or president), 
an accountant, and appoint members to represent the marketing, personnel, and production functions. 

The referee should then make sure that each team has an official team booklet, with copies of Forms I 
through IV arranged in a set for three years (four periods each year). The official set should have init- 
ial data (as per copy attached to this set of instructions) entered on the forms. This should include 
data regarding production, capacity, inventory value, administrative cost, and cash balance. Each member 
of each team should have a set of PLAYERS' INSTRUCTIONS, a copy of Chart I showing the past twenty-four 
periods of sales experience for his team, and. copies of Forms I through IV that he can use for calculations. 
It is advisable to make this material available for study sometime before initiating play of the game. 

The referee should then explain the philosophy of the game, pointing out that it is up to the teams to 
find out how the market reacts to their decisions and explaining the decisions to be made in the play for 
the first period on Form I. It is wise at this point to discuss the basic nature of the game, the fact 
that the teams are interdependent, the fact that market response will be dependent on the team decisions, 
to some degree, but that the market response will also be determined by general economic trends and by 
some random variation. Also, it can be pointed out that one quarter's decisions will affect results not 
only for that quarter, but for future quarters as well. 



Receiving the Decisions 

Upon receiving the booklets (with decisions) from the teams, the referee should verify the calculations 
and the entries, making sure that enough lead time is given for decisions regarding new production and 
capability. He should check profit calculations and should assure himself that each team has entered 
the cost of negative cash balance, if the team incurred some. 



Entering Data 

The referee then types the decisions into the computer program as data. (See INSTRUCTIONS FOR ENTERING 
DATA.) Decisions as to price, promotiom, production, capacity, research, and incentives are typed into 
memory locations from 351 to 358 (as needed), team one's decisions being typed into 351, team two's into 
352, etc. In the event that some team other than team one is the first to turn in its decisions, that 
team's decisions can be entered as soon as the form arrives. For example, if team four is the first to 
turn in its decisions, the decisions can be entered into memory location 354. Decisions as to training 
are entered into memory locations 361 through 368 (as needed) in the same way that data was entered in 
the 351-358 block. The referee should check the means for entering training data carefully before pro- 
ceeding. It should be noted that the data for incentive wages and for training must be coded before 
entry. 
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For incentive wages, the questions involve only whether the team has paid the full cost of the incentive 
plan and whether the plan is for the semi-skilled workers or not. A plan for another group of workers 
produces no effect at all. A plan, fully paid for, for semi-skilled workers, increases plant capacity, 
thereby causing less production expense when the plant is working near or above capacity. In coding the 
plan, the number entered should be 30 or more if the plan is for semi-skilled workers and less than 30 if 
the plan is for one of the other two classes of employees, or if there is no plan. 

As for training, the number entered is a function of the number of periods since a training program was 
installed. In the first period, whether or not a training program was installed, this number will be (0). 
This is because the results of the training program are not apparent in the period for which it is in- 
stalled. In the next period, if a training program was installed in the first period, the number should 
be (6). One period after the introduction of an additional new training program, six should be added to 
the number which appears as the last item of data in subject team's line in the last matrix printed out 
from the previous period (the matrix characterized as data statements). The data for the present period 
should be corrected by this increase. Note that, in entering such data, the whole data line must be 
entered, even though most of the data is as it was. For example, if team 4 had initiated a training pro- 
gram last period, and this period's data line had been "364 DATA 70,1,12,525,80,3.235", it should be re- 
entered as "364 DATA 70,1,12,525,80,9.235". 



Running the Program 

First, the "ON" button for the tape punch should be pressed and the "HERE IS" button should also be 
pressed. This will avoid any residual punching on the tape. Now, press the "OFF" button on the tape 
punch. At this point, after making sure that the program is initialized and all new data is fed in, 
type "RUN" and press the carriage return button. This should cause three matrices to be printed out 
along with two pieces of summary information. At the end of the second piece of summary information, 
"Total Promotion, $XXX", there will be a pause of one second. During this second, press the "ON" 
button of the tape punch. All the new data for data block 361 through 36n will be typed out and punched 
onto the tape (n depending on the number of teams). At the end of this series of data statements there 
will be another pause of one second. At this point press the "OFF" button. This will insure that only 
the data statements are present on the tape. The computer will then type "READY". After this has 
happened, press the "ON" button again and press "HERE IS". This will give you some blank tape at the 
end of the data. Then press the "OFF" button. Immediately then put this piece of tape in the tape 
reader and read in the new data. The computer is now initialized for the next period of play. The 
first matrix printed out will simply show the team decisions for the referee's verification. 

The referee should then insert the "sales" figures (in units), the "Prod Cost" figures (in dollars), 
and the "Admin Cost" figures (in dollars) from the second matrix in the appropriate places on the team 
forms. The last column, "unit cost", will be useful in the final game analysis. He can then hand the 
official booklets back to the teams. During the second play of the game, the teams will need assist- 
ance in completing the forms especially the Income Statement. It is probably appropriate to explain 
the forms to the participants as a group, going down through the necessary calculations. 
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Summarizing Results 

After each period is decided, the referee should post on the blackboard: 1) the prices charged by each 
team last period; 2) a combined sales total for all teams; 3) the total amount charged by all teams 
for promotion. After each four periods post the year's profit for each team. Each period represents 
three months . 

At the end of each four periods (i.e., each year) the referee will calculate a total profit for each 
team for the year. He will charge the team an income tax payable in the following period of play. This 
income tax will be 50% of the total profit calculated. This figure will be entered on Form II on line 15, 
labeled "Tax". The team must treat this as an expense in said period. 

Upon completing the game for any one day's play, the referee should retain all official team booklets, 
allowing the participants to keep their calculation sheets. He should also read out the present stage 
of the game onto tape. This he does by first typing "PLIST" on the teletype, waiting a second and then 
pressing the "ON" button for the tape punch. The tape will be furnished with blank leader and follower 
in the process and can be used to initiate play of the game for the next period. Only the new decision 
data and the new period number will have to be furnished. 



Game Analysis 

Upon completion of all the plays of the game, the referee should post records of the performances of all 
teams. A suitable form for such a presentation is embodied in Chart II with a series of trend lines for 
each team depicting various criteria useful in analyzing the game experience. The teams should be en- 
couraged to analyze their own experiences for the benefit of the other teams in the analysis session. 
The referee can comment as he feels appropriate. The data for the presentation can be found in the 
official team booklets and in the printouts from the computer. 

Note : (1) It may be useful at times to experiment with the game in order to determine how the total 
demand function behaves. For such purpose, the experimenter may wish to print out only a selected 
portion of the total printout. He can eliminate printing Matrix A for example, simply by one instruc- 
tion, "9 GO TO 17". Similarly he can eliminate printing the second matrix by typing "285 GO TO 330". 
The last (data statement) matrix can be omitted by typing "379 GO TO 400". When these matrices are 
again desired, simply type "9" then return , "285" then return , and "379" then return . 

Note : (2) A copy of the referee's data sheet is included at the conclusion. It is useful to enter 
team decision data on this sheet before entering the data into the computer. In this way errors in 
entering data can be avoided. Further, information on this sheet will be useful in the final game 
analysis. 



INSTRUCTIONS FOR INITIALIZING GAME 

1. The letter "N" represents the number of teams in the game. In order to set up the program for a 
given play of the game, this number will have to be inserted in the following manner: 

Type "4 LET N = (the number of teams)" 

For example, if the number of teams is to be 5, the instruction is: 

"4 LET N = 5" 
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2. Next, the period of play must be inserted. Assuming that this is the first period, this is done as 
follows: 

Type "5 LET P = 1" 

For the third period of play it would be: 

"5 LET P = 3" 

This instruction will give a market trend to the demand function throughout the game. As originally 
set up, this trend will call for rising total demand (all other things being equal) during the initial 
four periods. The demand will then level off and drop until the ninth period. The demand will then 
level off and rise again.* 

3. The tape is set up initially for eight teams. For this reason, data will have to be omitted for any 
teams above the actual number playing. This will have to be done in two different data blocks, 351 
to 358 and 361 to 368. The omissions should be from the higher numbers in each case to the lower 
numbers. For example, if the actual number of teams is 5, simply type the following numbers, press- 
ing "return" after each number: 

356, 357, 358, 366, 367, 368 

4. The data representing cumulative effects of past decisions are already entered in the initial tape. 
These entries won't have to be changed for the first period's play. 

The game is now ready for the first period. 



*If the instructor contemplates playing many more than twelve periods, it would be wise to move from 
period 12 to period 5 and then to period 6, etc. Using period numbers much higher than 12 will introduce 
demands that will probably be too high for practical purposes. 



DECSN, page 9 



PLAYER INSTRUCTIONS 
(To be given to all players) 



You are a member of a closely knit management team that is competing directly with several companies for 
a share of an industrial market. All of the companies are selling a product that is technically similar. 
Price and promotional effort are the key elements affecting volume. Profits result from a careful assess- 
ment of market demand, competitor's activities, and sound production and expense planning and control. 

As in any business, a number of forms must be used to communicate your decisions and to report the com- 
pany's position. Each period you must determine the: (1) product price, (2) promotion expenditure, 
(3) amount to be spent on plant expansion, (4) volume of raw material to be placed into production, 
(5) amount of research investment, (6) amount of expenditure for an incentive program, and (7) amount 
of investment in a training program. These decisions will be fed into a computer simulation representing 
a real market situation, and the results will be given back by the referee. Your team's results will be 
determined by (1) your decisions, (2) your competitors' decisions, and (3) the market conditions 
(affected by some trend indices). Additionally, there will be some random variation. 



Selling Price (Line 1) 

All other things being equal, the higher your promotion outlay, the more units of your product the market 
will absorb and the lower the price the more units of your product the market will absorb. However, the 
number of units sold by your firm will depend on the price and promotion outlays set by your firm in re- 
lationship to competitor's actions. There will be cyclical, seasonal and random influence in total market 
demand, as well as influence from the average price charged by all competitors and the total amount they 
spend on promotion. Orders must be filled from currently available merchandise; and inventory deficiency 
results in lost sales. 

Selling prices can only be changed in one dollar increments with a maximum variation of two dollars per 
unit from one period to the next. Assume that the last price charged was $30.00 per unit and your com- 
pany sold 59,000 units. 

Over the past several years each competitor has maintained an equal share of the market. Chart I portrays 
your company's sales volume over the last twenty-four periods. Your marketing research staff has reported 
that they expect the upward trend to continue. 



Promotion Budget (Line 2) 

This is the amount spent for advertising and personal sales effort. The budgeted amount cannot be altered 
more than $100,000 from one period to the next, and changes made in $50,000 steps. Your promotion budget 
last period was $450,000. The effect of promotional effort is somewhat cumulative. That is, there will 
be some effect on sales in later periods due to this period's promotion. 



DECSN, page 10 



Production (Line 3) 

During any period you may begin the ordering and production cycle for any number of raw materials units. 
The complete cycle requires two periods: one period for the raw materials to arrive after they have 
been ordered and one period to change the inputs into finished goods. Therefore, if a stock of finished 
inventory is needed for sale during period five for example, the raw material order must be placed no 
later than the beginning of the third period. Therefore, the production decision must be made for the 
third period. 

Two periods ago, 60,000 units of raw material were ordered. They can be sold during this first game 
period. Last period, 65,000 units were ordered and will be saleable during period II. If you wish to 
have additional inventory available for sale during the third period, enter the desired quantity now on 
line three, period III. 

There is a 10% inventory carrying charge each period. This charge is based on cost value of the ending 
inventory. Your ending inventory last period was 41,000 units, valued at $310,000. Thus the carrying 
charge would have been $31,000 last period. 

Your manufacturing cost is about $10 per unit when production is near plant capacity. Above capacity 
production leads to overtime rates and other charges; if your plant operates much under its full poten- 
tial, the $700,000 fixed charges will raise the unit costs. However, this should not be construed as 
forbidding you to produce above capacity. 



Plant Capacity Additions (Lines 4, 5, and 6) 

Initially, your plant has a 75,000 unit per period capacity. Every $60,000 spent for expansion will in- 
crease the plant's capacity 1,000 units. An expansion program initiated during one period is not com- 
pleted until three periods have passed. Payments are not made for plant additions until the new space 
is available for use. 

Your plant will have a 77,000 unit capacity during Period III. If you believe more capacity will be 
needed during the fourth period, this expansion program must be started now in the first period. Enter 
this decision on lines 7, 8, and 9 in the space provided under Period IV. 



Research and Development (Line 7) 

An investment may be made for research and development during any period. The more money that is put 
into research, the greater the probability of a breakthrough. For any investment made there is a period 
of delay due to the time needed for research before any results are realized. If a breakthrough does 
occur, the advantages will be realized through a reduction in total production cost for each period after 
the research investment repays itself. Repetitive breakthroughs are possible if research investments 
are repeated. The same total amount invested over time as a steady state input will give a greater possi- 
bility of breakthrough than if it is invested all in one period. That is, crash research programs, while 
effective, are more expensive than regular research investment. Investments in research must be made in 
multiples of $20,000. There is an investment maximum of $160,000 per period. 
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Incentive Wage Program (Line 8) 

An incentive program may be installed for all levels of the production force: unskilled, semi-skilled, 
and skilled. Any one, all, or a combination of these segments may be put on incentive during any period. 
The costs of the program include an initial cost for determining each job's productivity measurement, for 
establishing evaluation methods, and for making accounting adjustments. This cost is $50,000 for any or 
all groups of workers able to be put on incentive. There will also be a steady-state cost of $10,000 per 
period for each skill level on incentive. This is needed to maintain the control, evaluation, and account- 
ing procedures. The advantage of this program's establishment is that it may substitute for additions to 
the plant capacity. The increased production advantage of the program discontinues if the payments cease. 
As 60% of the work force is semi-skilled, the benefits of this group being put on incentive would be 
evidenced soonest -- during the period in which introduced. If this program is introduced, enter the 
amount of incentive expenditure on Line 4 of Form I. The total unit production, including increments 
added by incentives, will be taken into account when the computer calculates the production cost. 



Training Program (Line 9) 

It has been determined that the introduction and use of an extensive training program for production workers 
will result in lower total production costs whether production is at full capacity or not. If it is de- 
cided to begin this program, the expense will be one investment of $30,000. This expense will include the 
cost of instructors and educational material. It will take a period before the details of the program's 
setup are complete and the instructors are trained. Then there will be a reduction in production costs. 
The amount of total production cost reduction will exist from time to first effect, in decreasing amount 
from period to period. 



Negative Cash Balance 

At the end of every period in which your cash balance is negative, you will be charged an extra 5% of the 
amount by which it is negative. Make your calculations on scratch paper first to see if you will have a 
negative cash balance. Then add this cost if so. This is the cost of borrowing money to cover debts. 



Income Tax 

At the end of each four periods (1 year) the referee will calculate an income tax to be paid in the follow- 
ing period. It will be entered in Form II, line 15 and also in the space provided. 



Completing the Income Statement 

Step 1: The unit sales will be entered in Form II, line one, by the judge. Multiply the unit sales 
figure by the price charges by the company this period. Enter the dollar sales volume on 
line two. 

Step 2: Line three, Beginning Inventory, is the same as line six, Ending Inventory, from the previous 
period. 

Step 3: Line four, Production Cost, is entered on Form II by the judge. 
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Step 4: Line five, Merchandise Available for Sale, is the sum of lines three and four. 

Step 5: Multiply the Unit Sales, line one, by the average unit cost (Form IV, line six) and enter the 
product on line seven as the Cost of Goods Sold. Form IV is provided as a worksheet to aid 
in calculating the number of units of ending inventory and also the average unit cost. 

Step 6: Subtract line 7, Cost of Goods Sold, from line 5, Merchandise Available for Sale, and enter on 
line 6, Ending Inventory. 

Step 7: Subtract line 7, Cost of Goods Sold, from line 2, Sales, and enter the difference on line 8, 
Gross Margin. 

Step 8: Enter the Promotion Expense on line 9, from Form I, line 2. 

Step 9: Enter the Research Expense on line 12 from Form I, line 7. 

Step 10: Enter the Incentive Cost on line 10, from Form I, line 8. 

Step 11: Enter the Training Expense on line 11 from Form I, line 9. 

Step 12: Inventory Carrying Charge, line 13, is 10% of line 6, Ending Inventory. 

Step 13: The Overhead is provided by the judge. It is a function of capacity. 

Step 14: Add lines 9 through 15 and subtract the total from line 8. Enter the difference on line 16. 



Negative Cash Balance 

Step 1: Complete the Cash Available Statement - Form III. The "cash end this period" is the result of 
subtracting the sum of lines 4 and 5 from the sum of lines 1, 2, and 3. 

Step 2: If there is a negative cash balance at the end of the period, enter 5% of that figure as a 
penalty on the Income Statement, Form II, line 15. Reduce the Net Income (or increase the 
Net Loss) for the company for e^ery period that there is a negative cash balance on Form III. 



Average Unit Cost (Form IV, Line 6) 



Calculate the average unit cost by dividing the value of total merchandise for sale (Form II, line 5) by 
the number of units available for sale (Form IV, line 30). This figure should be entered on line 6 of 
Form IV. 
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JUDGE'S FORM 



CI as:: 



Date 



Number of Teams 



Judge 



Location 



Designation 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



Team # 



Price 



Prom. 



Prod. 



Cap. 



Research 



Incentive 



DATA 



DATA 



DATA 
DATA 
DATA 
DATA 



DATA 



DATA 
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JUDGE'S FORM 



CI ass Management 460 (B) 



Date 2/18/70 



Number of Teams 



Judge Nordstrom 



Location 


Designation 


Team # 


Price 


Prom. 


Prod. 


Cap. 


Research 


Incentive 


351 


DATA 


1 


30 


500 


65 


75 


100 


30 


352 


DATA 


2 


30 


850 


100 


80 


160 


20 


353 


DATA 


3 


31 


500 


55 


75 


30 


10 


354 


DATA 


4 


29 


650 


90 


80 


10 





355 


DATA 


5 


26 


500 


65 


75 


80 


30 




DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 


















DATA 
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FORM I MANAGEMENT DECISIONS 



Company_ 



Year 



1 . Selling Price 

2. Promotion Budget 

3. Production, Units 

4. Plant Cap. Add'ns, Units 

5. Plant Cap. Add'ns, $ 

6. Cum. Cap. Add'ns, $ 

7. Research Inv't, $ 

8. Incentive Prog. Exp., $ 

9. Training Prog. Inv't, $ 



I 


II 


III 


IV 











































































FORM II INCOME STATEMENT 



1 . Sales, Units 

2. Sales, $ 

3. Begin, Inv'y, $ 

4. Production Cost, $ 

5. Mdse. Av. for Sale, $ 

6. Ending Inv'y, $ 

7. Cost of Goods Sold, $ 

8. Gross Margin, $ 

9. Promotion Exp., $ 

10. Incentive Cost, $ 

11 . Training Exp. , $ 

12. Research Exp. , $ 

13. Inv'y Carrying Charge, $ 

14. Overhead, $ 

15. Cash Shortage Charge, $ 

16. Net Income (loss), $ 



z 



Year's 
Profit 



Income 
Tax 



Net After 
Tax 
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FORM I MANAGEMENT DECISIONS 



Company_ 



Year 197X 



II 



III 



IV 



1 . Selling Price 

2. Promotion Budget 

3. Production, Units 

4. Plant Cap. Add'ns, Units 

5. Plant Cap. Add'ns, $ 

6. Cum. Cap. Add'ns, $ 

7. Research Inv't, $ 

8. Incentive Prog. Exp., $ 

9. Training Prog. Inv't, $ 



















60,000 


65,000 










2,000 








120,000 




75,000 


75,000 


77,000 





























FORM II INCOME STATEMENT 



1. 


Sales, Units 


2. 


Sales, $ 


3. 


Begin. Inv'y, $ 


4. 


Production Cost, $ 


5. 


Mdse. Av. for Sale, $ 


6. 


Ending Inv'y, $ 


7. 


Cost of Goods Sold, $ 


8. 


Gross Margin, $ 


9. 


Promotion Exp., $ 


10. 


Incentive Cost, $ 


11. 


Training Exp. , $ 


12. 


Research Exp. , $ 


13. 


Inv'y Carrying Charge, 


14. 


Overhead, $ 


15. 


Cash Shortage Charge, 


16. 


Net Income (loss), $ 



















310,000 
























































































700,000 

























Year's 
Profit 



Income 
Tax 



Net After 
Tax 
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FORM III CASH AVAILABLE 



1. Cash, End of Last Per. 

2. Inv'y End Last Period 

3. Net Income This Period 

4. Paid for Add'l Plant Cap. 

5. Inv'y End This Period 

6. Cash End This Period 



I 


II 


III 


IV 



















































FORM IV INVENTORY WORKSHEET 



1. Beginning Inv'y 

2. Units This Period 

3. Total Units for Sale 

4. Unit Sales, This Per. 

5. Ending Inv'y, Units 

6. Av. Unit Cost (II5/IV3) 
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FORM III CASH AVAILABLE 



II 



III 



IV 



1. Cash, End of Last Per. 

2. Inv'y End Last Period 

3. Net Income This Period 

4. Paid for Add'l Plant Cap. 

5. Inv'y End This Period 

6. Cash End This Period 



660,000 








310,000 




















120,000 





















FORM IV INVENTORY WORKSHEET 



1 . Beginning Inv'y 

2. Units This Period 

3. Total Units for Sale 

4. Unit Sales, This Per. 

5. Ending Inv'y, Units 

6. Av. Unit Cost (II5/IV3) 



31,000 








60,000 








91 ,000 

































Sales in 60 

Thousands 

of Units 50 




XIX KVIIII XVIII XVI I XV XIV XIII I XII XI X IX I VIII VII VI 

Pregame Period 



IV III I II I I 



■8 
to 



CHART II FINAL ANALYSIS SHEET 



TEAM 



1. Inventory 



2. Price 



3. Promotion 



4. Prod. Cost 
(final unit cost*) 600 
4000 



5. Cash 



6. Profits 




$3,311,974 



— J 


V 1 


/V o x 


(500) 




1/ (500) 


(1000) 


v (1000) 


% 


$3,484 


.an y/ /t 
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RUN 

RUN 
DECSN 



NO. 


PRICE 


PROMOTION 




PRODUCTION CAPACITY 


RESEARCH 


INCENTIVE 


1 


30 


500 




65 


75 




100 


30 


2 


30 


850 




100 


80 




130 


20 


3 


31 


500 




55 


75 




30 


10 


4 


29 


650 




90 


80 




10 





5 


30 


500 




65 


75 




80 


30 


6 


30 


550 




90 


80 




100 


30 


7 


28 


450 




70 


80 




50 


20 


8 


27 


700 




90 


86 




60 


10 


TEAM 


NO. 


SALES 






PROD COST 


ADMIN COST 


UNIT COST 


1 




90011 . 


1 




640.25 


700 




9.85 


2 




105377 


• 




1354.37 


735 




13.5438 


3 




81906. 


7 




550 


700 




10 


4 




94503. 


2 




1 105 


735 




12.2778 


5 




82772. 


2 




650 


700 




10 


6 




89066. 


8 




954.465 


735 




10.6052 


7 




86677. 


1 




700 


735 




10 


8 




107639 


i. 




987.955 


777 




10.9773 



TOTAL POTENTIAL SALES, 737953. 

TOTAL PROMOTION, S 4700 



UNITS 



361 


DATA 55 


» 


.985 






, 


j 700 


* 75 


, 


362 


DATA 90 


» 


.985 






, 


, 735 


3 80 


, 


363 


DATA 55 


* 


1 


» 


36 


, 700 


* 75 


, 




364 


DATA 70 


» 


1 


* 


12 


, 735 


, 80 


, 




365 


DATA 55 


» 


1 


» 


96 


* 700 


» 75 


, 




366 


DATA 60 


» 


.985 






» 


* 735 


, 80 


» 


367 


DATA 50 


* 


1 


* 


60 


* 735 


, 80 


, 




368 


DATA 75 


» 


.985 






, 


, 777 


, 86 


, 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED PROGRAM dA^Iv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



DYNAMIC PROGRAMMING MODEL 



DYNPRO 
36067 



DYNPRO solves, by a standard algorithm, a somewhat general -purpose 
dynamic programming model. The solution is imbedded in the inlet 
state. 



Before running, be certain that the dimension in line 9398 are at least 
as large as one more than the number of values in the state variable, 
e.g., if there are 20 values in the state variable, 9398 must be at least 
as large as: DIM F(21,4), G(21,4). 

The user must also supply his own functions for the routines that are 
unique to his application. These routines, and their locations are 
described within the DYNPRO listing between lines 9012 and 9068. 
Variable definitions are provided between lines 9070 and 9104, and 
between 9180 and 9218. Function definitions are provided between 
lines 9112 and 9176. 

The user may also need to add or delete lines from the input data 
routine to meet his application. This routine is from line 9468 to 9496. 



DYNPRO is limited to one state variable. 
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RUN 

6ET-SDYNPRO 

9398 DIM FC12«4>«G<12»4> 

RUN 

DYNPRO 

* DYNAMIC PROGRAMMING MODEL * 

HOW MANY VALUES ARE THERE IN THE STATE VARIABLE?! 1 

IP DIN-STATEMENT HAS NOT BEEN ADJUSTED TO FCLAST INPUT*1#4># ETC* 
THEN STOP PROGRAM AND DO SO NOW* 

HOW NANY STAGES ARE THERE? 4 

WHAT IS THE SALES PRICE?35 

AND WHAT IS THE COST? 30 

AND THE PLOW RATE OF FEED? 1.5 

********************************************************************* 
INLET STATE OPT ALLOCATION MAX RETURN OPT OUTLET 



STAGE NUMBERS 4 








• 8 


•116812 


16.6441 


► 41 6221 


.79 


.115858 


16*2115 


.415005 


• 78 


•116309 


15.7805 


.412956 


.77 


•115732 


15.351 


.411469 


• 76 


•113686 


14.9231 


.410787 


• 75 


•111871 


14.4966 


> 409947 


.74 


•112755 


14.0723 


.407525 


.73 


•109856 


13.6493 


.407239 


.72 


•109878 


13.2286 


. 405239 


.71 


•108563 


12.8095 


.403973 


.7 


.107595 


12.3925 


.402469 


STAGE NUMBERS 3 








• 6 


9.65217E-02 


8.35339 


> 385733 


• 59 


9.59289E-02 


7.96508 


383468 


• 58 


9.25583E-02 


7.58021 


382725 


.57 


•092752 


7.19929 


.37987 


• 56 


8.98409E-02 


6.82194 


378721 


• 55 


8«88957E-02 


6.44888 


.376367 


.54 


8»62193E-02 


6.07971 


.374928 


• 53 


8.55161E-02 


5.71571 


.372263 


• 52 


8.32651E-02 


5.35618 


370397 


• 51 


8.27S26C-02 


5.00202 


367430 


• 5 


7.93429E-02 


4.65316 


36603 


STAGE NUMBER 1 2 








• 4 


5.57667E-02 


1.57986 


.338041 


• 39 


5.14664E-02 


1.32999 


.335257 


• 38 


•046873 


1.09452 


.332367 
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.37 


4.3S539E-02 


•87S69 


.328432 


• 36 


4.00548E-02 


.674725 


► 32426 


.35 


3.29919E-02 


• 493731 


► 321743 


• 34 


2.91687E-02 


.3366 


►316921 


• 33 


2.46202E-02 


•204355 


►312039 


• 32 


1.66858E-02 


•101871 


►308525 


• 31 


•011286 


3.20753E-02 


►30294 


• 3 


1.97483E-03 


1.22468E-03 


.298848 


STAGE NUMBER l 1 








• 2 


9.87229E-03 


••226361 


.19867 


• 19 


3.33882E-03 


-.077742 


189573 


• 18 


9. 7 58 68 E- 03 


••229708 


►178799 


• 17 


3.17376E-03 


-7.50557E-02 


.169616 


• 14 


8*93324E-03 


-•211652 


.158927 


• IS 


2.83702E-03 


-6.72003E-02 


149659 


• 14 


7.82094E-03 


-•185064 


139056 


• 13 


1.15506E-02 


-.273163 


128603 


• 12 


3.61285E-03 


-8.55038E-02 


119564 


• 11 


9.97365E-03 


-.236801 


108811 


• 1 


3.13576E-03 


-7.48497E-02 9.96338E-02 



*********************************************************************** 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED P R O G R A M JtJ XXl3 lv 



TITLE: 
DESCRIPTION: 



SPECIAL 
CONSIDERATIONS: 



CRITICAL PATH ANALYSIS 



GCPATH 
36504 



ACKNOWLEDGEMENTS: 



Each project has several characteristics that are essential for analysis 
by the Critical Path Method: 

(1) The project consists of a well-defined collection of jobs (or 
activities) which, when completed, mark the end of the project. 

(2) The jobs may be started and stopped independently of each other, 
within a given sequence. (This requirement eliminates continuous- 
flow process activities, such as oil refining, where "jobs" or 
operations necessarily follow one after another with essentially 
no slack.) 

(3) The jobs are ordered - that is, they must be performed in technol- 
ogical sequence. (For example, the foundation of a house must be 
constructed before the walls are erected.) 

First of all, each job necessary for the completion of a project is listed 
with a unique identifying symbol (such as a letter or number), the time 
required to complete the job, and its immediate prerequisite jobs. For 
convenience in graphing, and as a check on certain kinds of data errors, 
the jobs may be arranged in "technological order," which means that no job 
appears on the list until all of its predecessors have been listed. Tech- 
nological ordering is impossible if a cycle error exists in the job data 
(e.g., job a precedes b, b precedes c, and c precedes a). 

Then each job is drawn on the graph as a circle, with its identifying symbol 
and time appearing within the circle. Sequence relationships are indicated 
by arrows connecting each circle (job) with its immediate successors, with 
the arrows pointing to the latter. For convenience, all circles with no 
predecessors are connected to a circle marked "Start"; likewise, all circles 
with no successors are connected to a circle marked "Finish." (The "Start" 
and "Finish" circles may be considered pseudo jobs of zero time length.) 

Typically, the graph then depicts a number of different "arrow paths" from 
Start to Finish. The time required to traverse each path is the sum of the 
times associated with all jobs on the path. The critical path (or paths) is 
the longest path (in time) from Start to Finish; it indicates the minimum 
time necessary to complete the entire project. 



This critical path analysis is described by Levy, Thompson and Wiest in 
"The ABC's of the Critical Path Method" (Harvard Business Review, September- 
October, 1963). This documentation contains excerpts from the article; per- 
mission to reprint has been granted by the publishers. 
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INSTRUCTIONS : 



The problem description is entered in a set of data statements beginning with line 1000. A problem 
consists of a number of jobs . Each job requires a specified amount of time to complete. Some jobs 
cannot be started until one or more of the other jobs have been completed. If job a^ must be completed 
before job b is begun, we say that a is a predecessor of b_. 



Each job must be assigned an identifying job number . There are no restrictions on these numbers 
except that no two jobs may be assigned the same number. Each job can be described in a data 
statement. The required information follows: 

Job number 

Completion time 

Predecessor jobs (if any) 

-1 

For example: 

1002 DATA 10, 30, 1, 15, -1 

This describes job number 10, which requires 30 days to complete and cannot be started until jobs 
number 1 and 15 have both been completed. 

Jobs may be described in any order. 

After entering data statements, RUN the program. The job characteristics will be repeated, followed 
by the earliest completion time for the entire project. Then the program will print the earliest 
and latest starting and finishing times for each job, consistent with the earliest completion time 
for the entire project. Jobs on the "critical path" will also be indicated. 
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RUN 

RUN 
GCPATH 

HAVE YOU ENTERED YOUR DATA ALREADY? NO 

ENTER THE PROJECT DESCRIPTION IN DATA STATEMENTS 

BEGINNING WITH LINE 1000 

FOR EACH JOB, GIVE THE FOLLOWING DATA -- 

JOB NUMBER 

TIME REQUIRED TO COMPLETE 

PREDECESSOR JOBS <IF ANY) 

-1 

JOBS MAY BE ENTERED IN ANY ORDER 

AFTER ENTERING YOUR DATA STATEMENTS, RE-RUN THE PROGRAM 



DONE 



1000 DATA 1,10,-1 

1001 DATA 10,30,1,15,-1 

1002 DATA 8,20,10,30,-1 

1003 DT-ATA 30,40,25,-1 

1004 DATA 25,20,1,15,-1 

1005 DATA 15,20,-1 



RUN 
GCPATH 

HAVE YOU ENTERED YOUR DATA ALREADY7YES 
JOB TIME PREDECESSORS 



1 


10 






10 


30 


1 


15 


8 


20 


10 


30 


30 


40 


25 





25 20 1 15 
15 20 

EARLIEST COMPLETION TIME FOR THE ENTIRE PROJECT = 100 

EARLIEST LATEST 
JOB START FINISH START FINISH 



1 





10 


10 


20 




10 


20 


50 


50 


80 




15 





20 





20 


*** CRITICAL *** 


8 


80 


100 


80 


100 


*** CRITICAL *** 


30 


40 


80 


40 


80 


*** CRITICAL *** 


25 


20 


40 


20 


40 


*** CRITICAL *♦* 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 
CONTRIBUTED P R G R A M IS AO M\S 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CRITICAL PATH ANALYSIS 



GCPM1 
36505 



The BASIC program GCPM1 can be used to perform a critical path analysis 

on any complex project which is capable of being represented as a network 

of individual tasks. As a practical matter, the number of jobs in the 
network should not exceed 45. 

The program assumes the user can provide the following information: 

1. The number of jobs in the project (including a dummy terminal job 
which takes no time to complete but which cannot be started until all 
other jobs are completed); 

2. For each job, a list of jobs which are its immediate successors (fol- 
lowing jobs) and the time required on the job until each succeeding 
job can be started. 



See Page 2 



Example Problem : 

The critical path analysis of the network on Page 3 is provided as a sample 
run. A single critical path is found with a minimum time to completion of 
33 units. Then the completion time for a branch (6,8) which is not on the 
critical path is reduced from 3 units to one unit. Since the reduction is 
by an amount less than the slack time for job 6, no change in the critical 
path occurs. Finally, jobs on the critical path are "crashed" or made to 
require less time. This has the effect of reducing the time to project 
completion. 
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INSTRUCTIONS 

It is important that the user understand the diagramming conventions which are assumed 
by this program. Figure 1 provides an example of a statement of tasks and the corres- 
ponding CPM network. The network is an activity-node diagram. That is, each node rep- 
resents a different job. Job 11 is the dummy terminal node mentioned above. Note that 
the program permits a succeeding job to start before its predecessor is "finished." 
For example, job 3 has as successors both jobs 5 and 6. Job 5 cannot start until six 
time units of work have been completed on job 3; job 6, however, can begin once five 
units of work have been completed on job 3. If, for a particular problem, every job 
must "finish" before a successor starts, all branch times emanating from an individual 
node will be equal . 

Problem information is input on DATA statements starting with line 8000. The network 
must be drawn and jobs numbered in such a way that for every job, any and all succeeding 
jobs have a higher job number. The first job in the network should be given the job num- 
ber of one (1). An error message would be printed if, for example, job number 3 were 
listed as a successor of job number 4. 

Once program execution is commenced by a RUN command, the program will output: 

1. The earliest possible time each job can be started; 

2. The latest possible time each job can be started and still complete the project 
(network) in the minimum amount of time; 

3. The minimum time in which the project can be completed; 

4. A list of all jobs which are on the project's critical path(s); and 

5. One critical path through the network. 

There is frequently more than a single critical path. When this occurs, all jobs with 
zero slack are printed but only a single path is traced. The user is left to trace the 
remaining paths. 

Once this information is printed the user is given the opportunity to study the effect of 
changes in job times (although no jobs may be removed from or added to the original network) 
If the query 

HOW MANY LINKS OF THE NETWORK DO YOU WISH TO CHANGE? 

is answered with a zero, '0', execution will terminate. A response of any other number 
less than the total number of jobs in the network will produce the reply 

FOR EACH LINK TYPE: FIRST JOB, SECOND JOB, TIME INVOLVED. 

A response of 2_,3^5_ would mean that job 2 must now be worked on for five time units before 
job 3 can commence. This user input overrides information supplied in the original data 
statement. 

Data Input 

Input is through DATA statements starting with line 8000. The first line is 

8000 DATA N 

where N is the number of jobs, including the dummy terminal job, in the network. The 
second line of input is (numbering lines by 10) 

8010 DATA SI, 1S1, 1T1 , 1S2, 1T2, ..., MSI, MT1 

where 

SI = the number of successor jobs to job 1 ; 
1S1 = the number of the "first" successor to job 1; 
1T1 = the time to be worked on job 1 before the "first" successor, 1ST, can be started; 



MSI = the number of the "last" successor to job 1; and 

MT1 = the time required to be worked on job 1 before the "last" successor, MSI, can be 
started. 

All following lines should list jobs 2, 3 , N and the appropriate successors and branch 

working times. 
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Job 

1 
2 



4 
5 

6 

7 
8 
9 

10 
11 



Immediate Successors 

3 
3 
4 
5 
6 
7 



10 
10 
10 
11 
11 



Time Required Before 
Beginning Successor Job 

10 
6 
5 
6 
5 
2 
5 
7 
3 
1 
6 
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RUN 



8000 


DATA 


11 


8010 


DATA 


1,3,10 


8020 


DATA 


2,3,6,4,5 


8030 


DATA 


2,5,6,6,5 


8040 


DATA 


1,7,2 


8050 


DATA 


2,8,5,9,7 


8060 


DATA 


2,8,3,10,1 


8070 


DATA 


1,10,6 


8080 


DATA 


1,10,8 


8090 


DATA 


1,11,5 


8100 


DATA 


1,11,4 


RUN 






GCPM1 


I 





EARLIEST START LATEST START SLACK TIME 



4 4 

10 10 

5 21 16 

16 16 

15 18 3 

7 23 16 

21 21 

23 28 5 

29 29 

33 33 
33 



EVENT NUMBER 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 
THE TIME TO PROJECT COMPLETION IS: 
THE JOBS ON THE CRITICAL PATH ARE: 

1 >3 >5 >8 >10 >11 
ONE CRITICAL PATH THROUGH THE NETWORK IS: 

1 >3 >5 >8 >10 >11 



HOW MANY LINKS OF THE NETWORK DO YOU WISH TO CHANGE? 

71 

FOR EACH LINK TYPE:FIRST JOB, SECOND JOB, TIME INVOLVED. 

?6,8,1 



EARLIEST START LATEST START SLACK TIME 



4 4 

10 10 

5 21 16 

16 16 

15 20 5 

7 23 16 

21 21 

23 28 5 

29 29 

33 33 
33 



EVENT NUMBER 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 
THE TIME TO PROJECT COMPLETION IS: 
THE JOBS ON THE CRITICAL PATH ARE: 

1 >3 >5 >8 >10 >11 
ONE CRITICAL PATH THROUGH THE NETWORK IS: 

1 >3 >5 >8 >10 >11 
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HOW MANY LINKS OF THE NETWORK DO YOU WISH TO CHANGE? 

?2 

FOR EACH LINK TYPElFIRST JOB, SECOND JOB, TIME INVOLVED. 

?1,3,7 

?5,8,3 



EARLIEST START LATEST START SLACK TIME 



1 1 

7 7 

5 16 11 

13 13 

12 15 3 

7 18 11 

16 16 

20 23 3 

24 24 

28 28 
28 



EVENT NUMBER 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 
THE TIME TO PROJECT COMPLETION IS: 
THE JOBS ON THE CRITICAL PATH ARE: 

1 >3 >5 >8 >10 >11 
ONE CRITICAL PATH THROUGH THE NETWORK IS: 

1 >3 >5 >8 >10 >11 



HOW MANY LINKS OF THE NETWORK DO YOU WISH TO CHANGE? 
?0 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 
CONTRIBUTED P R O G R A M OjRL«Xv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



GINTLP 
LINEAR PROGRAMMING - VARIABLES RESTRICTED TO VALUES OF ONE 36512 

OR ZERO 

This program will solve linear programming problems in which all variables 
are restricted to values of either zero or one. An objective function of 
the form: 

C 1 X 1 + C 2 X 2 + ••• + c n X n 
will be minimized subject to a series of M constraints, each of the form: 

a il X l + a i2 X 2 + ••• + a iN X N = B i (for i = !» •■• » M > 
And, of course: 

X. = 0,1 (for j = 1, 2 N) 

Input can be via DATA statements or the terminal. If data statements are 
used, they should be entered beginning at line 9000, in the following 
order: 

number of constraints (M) < = 20 
number of variables (N) < = 40 
for each constraint: 

coefficient for variable 1 (cL-i) 

coefficient for variable 2 (a,-?) 

coefficient for last variable (a,^) 

right-hand side (B.) 

coefficients for objective function (c,,C2» ... » c m) 
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RUN 

RUN 
GINTLP 

PLEASE INDICATE INPUT SOURCE -■ 
•T» FOR TERMINAL 
•D f FOR DATA STATEMENTS 

SOURCE — ?T 

NUMBER OF CONSTRAINTS — ?3 
NUMBER OF VARIABLES --?5 



COEFFICIENTS FOR CONSTRAINT 1 



VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 



RIGHT-HAND SIDE 



?1 

?-3 

?5 

?1 

?-4 

?2 



COEFFICIENTS FOR CONSTRAINT 2 



VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 



: ?-2 

l ?6 

I ?-3 

i ?-2 

t ?2 



RIGHT-HAND SIDE t ?0 



COEFFICIENTS FOR CONSTRAINT 3 



VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 



RIGHT-HAND SIDE 



?0 

?-l 

?2 

?-l 

?-l 

?1 



COEFFICIENTS FOR OBJECTIVE FUNCTION -- 



VARIABLE 


1 




i ?5 


VARIABLE 


2 




?7 


VARIABLE 


3 




?10 


VARIABLE 


4 




?3 


VARIABLE 


5 




?1 


ANSWERS l 
VARIABLE 




VALt 


JE 


1 









2 




1 




3 




1 




4 









5 










MINIMUM VALUE OF THE OBJECTIVE FUNCTION 



17 



DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED P R O G R A M U Al&M\s 



LINEAR PROGRAMMING 



GLP 
36516 



ACKNOWLEDGEMENTS: 



This program will solve a standard linear programming problem of modest 
size. Up to 28 constraints may be used, and up to 45 variables. Cases 
in which the number of variables plus the number of constraints exceeds 
40 may, however, prove too large. 

The problem description must be entered in data statements beginning with 
line 2000. For each non-zero coefficient in a constraint, the following 
information is required: 

Constraint number , variable number , coefficient 

For each coefficient in the objective function, the following information 
is required: 

"OBJ," variable number , coefficient 
For each constraint, the following information is entered: 

a) If the value must be less than or equal to the right-hand-side 
value: 

constraint number , "<=" , right-hand-side value 

b) If the value must be equal to the right-hand-side value: 

constraint number , "=" , right-hand-side value 

c) If the value must be greater than or equal to the right-hand-side 
value: 

constraint number , ">=" , right-hand-side value 

Each group of three items must be entered in order (as described), but 
groups may be entered in any order. 

After entering the data statements, RUN the program. It will ask you if 

you want to MAXIMIZE or MINIMIZE the value of the objective function. 

Then it will request the number of variables and the number of constraints. 

The output includes information on the optimal value of the objective 
function, the values of the variables in the solution, the constraints that 
were binding (and their shadow-prices), and the constraints that were slack 
(and the amounts by which they were slack). Most of the information is 
self-explanatory. The major exception is the set of shadow-prices. Roughly, 
a shadow-price indicates the amount by which the objective function would 
change if the constraint in question were changed by one unit. This provides 
some information concerning the desirability of changing constraints and 
shows how sensitive the results are to the particular assumptions employed. 
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RUN 

2000 DATA 1,1,2 

2001 DATA 1,2,3 

2002 DATA 2,1,5 

2003 DATA 2,2,4 

2004 DATA "OB J", 1,300 

2005 DATA "OBJ", 2, 360 

2006 DATA 1,"<«",1000 

2007 DATA 2,"<=",2000 

RUN 
GLP 



DO YOU WANT TO MAXIMIZE OR MINIMIZE?MAXIMIZE 
NUMBER OF VARIABLES? 2 
NUMBER OF CONSTRAINTS? 2 



SOLUTION 

VALUE OF THE OBJECTIVE ■ 137143 
VARIABLES 

BSBSSSBSSSSSSSSSa 

VARIABLE VALUE 



2 142.857 

1 285.714 

BINDING CONSTRAINTS 

sssasBSsssssasssasssssssaaa 

CONSTRAINT SHADOW-PRICE 



1 85.7143 

2 25.7143 

SLACK CONSTRAINTS 

SS8BBEBBSBBSBSSSBBSB 

CONSTRAINT SLACK 
DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



LINEAR PROGRAMMING TWO-PHASE SIMPLEX METHOD 



GLPSA1 
36517 



This program solves a linear programming problem via the two-pha^se simplex 
method and permits the user to perform sensitivity and parametric analyses 
on the right-hand side and cost coefficients. The program does not provide 
the opportunity for post-optimal ity analysis of the technological co- 
efficients. The data for the problem matrix is provided in a series of 
DATA statements while user prompts after the program start determine the 
nature of the problem (maximization or minimization, number of variables 
and constraints, and the direction of constraint inequalities). The program 
will solve a problem having 28 or fewer constraints and for which the sum 
of variables, all constraints and surplus variables (^inequalities) is less 
than or equal to 69. 



See Page 2 



Graduate School of Business 
Stanford University 



GLPSA1, Page 2 



INSTRUCTIONS: 

Input of the Problem Matrix 

The program will solve problems organized in either of the following two forms: 

N 
minimize z c- X 



j = l 



J J 



N 
subject to z a.. X. <_ b. , i = 1,2, ... , L 
j=l 1J J 1 



(1) l a ij X j = b i , i = L+ 1, ... , L+E 



or 



j = l 



Z a. . X. > b. , i = L+E+l, ... , L+E+G 
j=l 1J J " n 

X j >_ j = 1 , 2 , . . . , N 

N 
maximize z c . X . 

j=l ^ 

H 
subject to z a.. X. <b. , i = 1,2, .... L 
j=l 1J J 1 



(2) Z a.. X. = b. , i = L + 1 L+E 

j=l 1J J n 



Z a. . X. >_ b. , i = L+E+l, .... L+E+G 
j=l 1J J 1 



Xj > j = 1,2 N 



where 



N = the number of primal variables in the original problem, 

L = the number of constraints with a <^ inequality, 

E = the number of contraints which hold with equality, and 

G = the number of constraints with a >_ inequality. 

Note that regardless of whether the problem requires maximization or minimization, the problem contraint 
matrix is organized with the Type I (<j inequalities first, equalities second, and Type II (>_) inequalities 
last. This problem organization also requires that all bi be greater than or equal to zero. In the 
event a given b. is negative, the corresponding constraint can be multiplied by -1 and the inequality 
reversed to conform with the program requirements. 
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INSTRUCTIONS: (continued) 

Input of the Problem Matrix (continued) 

The DATA statements used to input the problem matrix should be numbered consecutively, 
starting with statement number 5000. The largest allowable statement number is 9998. 
The a-j i elements should be entered first, constraint row by contraint row. Then the 
cj coefficients should be entered, followed by the right-hand side or b-j elements. The 
resulting list of data statements should appear as follows: 

5000 DATA a-]]. a 12 ... , a 1N 
5010 DATA a 21 a 22 , ... , a 2N 



... DATA a m , a M2 a MN 

DATA c r c 2 , ... , c n 
... DATA b r b 2 b m 

Running the Program 

After all DATA statements are entered, type the statement 

RUN 

to commence execution. The program will then respond with 

TYPE: T FOR MAXIMIZATION OR '-T FOR MINIMIZATION. 

Enter the appropriate answer and then press the carriage return so that execution can 
continue. 

The next prompt will be 

TYPE: THE NUMBER OF CONSTRAINTS, NUMBER OF VARIABLES. 

To answer this query enter the total number of constraints (M = L + E + G) and the 
number of problem variables (N); these two numbers should be separated by a comma. 
Once the carriage has been returned after this entry, a final query will be printed. 

TYPE: NUMBER OF LESS THAN, EQUAL, GREATER THAN CONSTRAINTS. 

To answer this prompt enter the values of L, E, and G, all separated by commas, and 
return the carriage. 

The program will then respond with a list of original problem variable numbers 
(YOUR VARIABLES = 1, 2, ..., N), the numbers of all slack or surplus variables added 
to the inequality constraints, and the numbers of all artificial variables added so 
that an initial feasible solution can be found. The program then proceeds to solve 
the problem. If no feasible solution can be found for the original problem, the 
following message will be printed. 

THE PROBLEM HAS NO FEASIBLE SOLUTION; 

execution is then terminated. If a feasible solution exists but an optimal solution 
cannot be found due to the absence of a convex feasible region, the message 

THE SOLUTION IS UNBOUNDED 

will be printed and execution terminated. 

If an optimal solution is located, the optimal values of the primal variables, dual 
variables, and the objective function are printed. The zero values of all non-basic 
primal and dual variables are not printed. 
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INSTRUCTIONS: (continued) 

Right-Hand Side Ranging 

Once the optimal solution is printed, the opportunity to do sensitivity analysis on this solution 
is announced by the message: 

NOW YOU CAN DO SENSITIVITY ANALYSIS ON THE RIGHT HAND SIDE. 

For any set, I, of right side b. elements, the associated constraints 

N 

z a. .X. < b. (for i in I) 
j = l 1J J " ' 

can be changed to 

N 

Z a. . X . < d. + 9 
j = l 1J J - 1 

(The <_ constraint is used for illustration) The program then finds the upper and lower bounds on 
9. These bounds indicate the amount by which each of the b. (i in the set I) can be increased or 
decreased so that the current optimal basis remains feasible. This basis is no longer feasible 
when one of the basic variables becomes negative. The basic variables which goes to zero when 6 
reaches its upper and lower bounds are also identified by the program. 

To perform the analysis the program asks 

HOW MANY CAPACITIES DO YOU WISH TO CHANGE? 

A response of sends the program to another section where sensitivity analysis of the cost coef- 
ficients is performed. Right-hand side ranging can be performed on from one to M constraints. 
The next query, 

WHICH CAPACITIES DO YOU WISH TO CHANGE? 

requires a specification of the index numbers (i = 1,2, ..., M) of the b. to be included in a 
ranging analysis. If the number of a constraint is entered more than once, the 9 added to b. will 
be multiplied by the number of times the constraint is entered. For example, if the first constraint 
is entered twice, the result will be 

N 

£ a. .X. < b, + 29 
j-1 1J J ~ ] 

Thus, in determining a bound on 9, b, will increase twice as fast as the b. of a constraint which is 
entered only once. 

The program repeatedly offers the opportunity to perform righthand side analyses until a zero 
response is given to the original query. 

Cost Coefficient Ranging 

The opportunity to perform a ranging analysis on the c. coefficients is announced by 

YOU MAY NOW DO SENSITIVITY ANALYSIS ON THE COST FACTORS. 

For a selected set of variables, J, in the original objective function 

N 

Z c.X. 
J J 

j=l 
is changed to 

N 

Z C.X. + 9E X.. 



j = l 



J J 



That is, each selected coefficient c. becomes c + 9. The program then determines the upper and 
lower bounds on e such that the original optimal solution remains optimal. This determines the 
amount by which each c. in the set J can be increased or decreased without changing anything but 
the objective function J value of the optimal solution. 
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INSTRUCTIONS: (continued) 

The program queries used to perform this analysis are 

HOW MANY COSTS DO YOU WISH TO CHANGE? 
and 

WHICH COSTS DO YOU WISH TO CHANGE? 

Entries are provided in the same manner as for right-side ranging. Entry of a variable 
index number more than a single time has the same effect on the rate of that variable's 
increase and decrease as is the case in the right side analysis. 

A zero response to the initial cost change query sends program control to sections to 
perform parametrix analysis of right-hand side and cost coefficients. 

Parametric Analysis -- Right-Hand Side 

The opportunity to perform a complete parametric analysis of one or more right-hand 
side elements, b., is announced by 

YOU MAY NOW DO PARAMETRIC ANALYSIS ON THE RIGHT HAND SIDE. 

Recall that after slack and surplus variables were added, the original problem had 
constraints of the form 

N 

z a,.X. = b, i = 1, ..., M. 



j=l 



U j i 



Parametric analysis allows us to select a set, I, of b. elements and change them to 
b. + e. Then e is increased, or decreased (an option not explicitly available or 
needed in right side ranging), up to the point where a basis change occurs. The 
new optimal solution is printed at this point, and 9 is allowed to continue in its 
change in value over several optimal bases until the solution is no longer bounded 
or until the problem becomes infeasible. 

The program will ask 

HOW MANY CAPACITIES DO YOU WISH TO CHANGE? 

A zero response stops execution. As with previous queries, if analysis is to be 
done, enter the number of constraints to be used. The inquiry 

WHICH CAPACITIES DO YOU WISH TO CHANGE? 

is answered with the numbers of the constraints being analyzed. If the direction 
of change desired is a decrease in b. , i.e., b. - e, precede the constraint number 
with a minus sign. Entering a constraint's number more than once causes the rate 
of change for 9 to be increased by a multiple of the times a number is entered. 

Once the response to the above question is entered, the analysis will be performed 
and printed. There are then four possible options open to the program user: 

1. A parametric analysis can be performed on the same constraints 
as were considered^ in the previous analysis but the direction 
of change in the b. will be reversed. The starting point for 
this analysis will be the final optimal solution reached in the 
preceding parametric analysis, not the original optimal basis and 
original right hand side. 

2. A parametric analysis may be performed on a new set of capacities 
using as a starting point the basis and right hand side reached 
at the conclusion of the previous parametric analysis. 

3. A parametric analysis can be performed on a new set of capacities 
using the original right side and optimal basis. (This requires 
a resolving of the problem.) 

4. Execution can be terminated. 
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INSTRUCTIONS: (continued) 

To select an option, the following prompt should be answered. 

TYPE: AT TO REVERSE THE PREVIOUS PARAMETRIC ANALYSIS, A '2' TO START ANOTHER 
PARAMETRIC ANALYSIS FROM THIS POINT, OR A '3' TO DO ANOTHER PARAMETRIC 
ANALYSIS ON THE ORIGINAL CAPACITIES. TYPE A '0 1 TO QUIT 

A response of zero stops execution. A 1 answer performs the reversed analysis and returns with the 
above prompt; a 2 or a 3 response will produce the prompts 

inn urcu N Sn ?2 n M?K METRIC ANALYSIS ON THE RIGHT HAND SIDE HOW MANY CAPACITIES DO 
YUU Wlbn IU CHANGE? 

Respond in the same form as the previous such query and the analysis will be performed. Return 
will be to the four-option point in the program. 



RUN 

5000 DATA 4,9,7*10 
5010 DT-ATA 1*1*3*40 
5020 DATA 4000,6000 
5030 DATA 12,20,18,40 
RUN 
GLPSA1 



TYPEt '1' FOR MAXIMIZATION, OR •-!• FOR MINIMIZATION. ?1 

TYPE: THE NUMBER OF CONSTRAINTS, NUMBER OF VARIABLES. ?2,4 

TYPE: NUMBER OF LESS THAN, EQUAL, GREATER THAN CONSTRAINTS. ?2.-,0,0 



YOUR VARIABLES 1 THROUGH 4 
SLACK VARIABLES 5 THROUGH 6 



ANSWERS: 

PRIMAL VARIABLES: 

VARIABLE VALUE 

1 666.667 

4 133.333 

DUAL VARIABLES: 
VARIABLE VALUE 

1 2.93333 

2 .266667 

VALUE OF OBJECTIVE FUNCTION 13333.3 



YOU CAN NOW DO SENSITIVITY ANALYSIS ON THE RIGHT HAND SIDE, 



HOW MANY CAPACITIES DO YOU WISH TO CHANGE? 1 

WHICH CAPACITIES DO YOU WISH TO CHANGE? 1 

THE BOUND ON THE DECREASE IS 2500. AT WHICH POINT VARIABLE 

GOES TO ZERO. 
THE BOUND ON THE INCREASE IS 20000 AT WHICH POINT VARIABLE 4 

GOES TO ZERO. 



HOW MANY CAPACITIES DO YOU WISH TO CHANGE70 

YOU MAY NOW DO SENSITIVITY ANALYSIS ON THE COST FACTORS. 



HOW MANY COSTS DO YOU WISH TO CHANGE? 2 
WHICH COSTS DO YOU WISH TO CHANGE?2,3 
THE BOUND ON THE INCREASE IS 3.33333 
AT THIS POINT VARIABLE 3 CAN ENTER THE BASIS .VARIABLE 1 
WILL LEAVE THE BASIS. 
THE DECREASE IS NOT BOUNDED. 



HOW MANY COSTS DO YOU WISH TO CHANGE70 

YOU CAN NOW DO PARAMETRIC ANALYSIS ON THE RIGHT HAND SIDE. 
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HOW MANY CAPACITIES DO YOU WISH TO CHANGE? 1 
WHICH CAPACITIES DO YOU WISH TO CHANGE? 1 

THE NEXT BOUND ON THE CHANGE IS 20000 . VARIABLE 4 
WILL GO TO ZERO .VARIABLE 2 WILL ENTER THE BASIS. 
THE NEW OPTIMAL SOLUTION IS: 



ANSWERS t 

PRIMAL VARIABLES : 

VARIABLE VALUE 

1 6000 

2 
DUAL VARIABLES: 
VARIABLE VALUE 

1 1.6 

2 5.6 

VALUE OF OBJECTIVE FUNCTION 



72000. 



THE NEXT BOUND ON THE CHANGE IS 

WILL GO TO ZERO. VARIABLE 5 
THE NEW OPTIMAL SOLUTION IS: 



30000. . VARIABLE 
WILL ENTER THE BASIS. 



ANSWERS J 

PRIMAL VARIABLES} 

VARIABLE VALUE 

2 6000. 

5 

DUAL VARIABLES: 
VARIABLE VALUE 

1 

2 20. 

VALUE OF OBJECTIVE FUNCTION 



120000 



THERE IS NO FURTHER BOUND ON THE CHANGE. 

TYPE! A M» TO REVERSE THE PREVIOUS PARAMETRIC ANALYSIS, 
A'2» TO START ANOTHER PARAMETRIC ANALYSIS AT THIS POINT, 

OR A '3* TO DO ANOTHER PARAMETRIC ANALYSIS ON THE 
ORIGINAL CAPACITIES. TYPE A »0» TO QUIT. 
?0 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED P R O G R A M t£ AOlL 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



NETWORK FLOW DETERMINATION (MAX/MIN) 



GNETFL 
36529 



This program finds the minimum-cost feasible flow through a network. The 
network is made up of nodes and arcs . Each arc runs from one node to 
another, and can handle flows within a specified range. Each unit of flow 
along a given arc has an associated cost . Finally, the total flow into a 
node must equal the total flow out of the node. Given the description of 
such a network, the program will find a set of flows that meets all the re- 
quirements at either minimum or maximum total cost. 

Each node is assigned an arbitrary number between 1 and 99. The network is 
described by giving the following information for each arc: 

From node number 

To node number 

Cost per unit of flow 

Upper bound (maximum flow) 

Lower bound (minimum flow) 

For example: 

1000 DATA 20,30,3,10,40 

This describes an arc from node 20 to node 30; each unit of flow along the 
arc adds 3 units to total cost; and the flow must be between 10 and 40 units 
inclusive. 

All numbers must be integers (whole numbers). 

Data should be entered in data statements, beginning with line 1000. 

The program has been modified to allow maximization. If this option is 
specified, all cost figures are multipled by -1 before processing begins, 
and the total cost figure is multiplied by -1 prior to output. Node prices 
(the values of the dual variables) are not altered prior to output. 
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RUN 

1000 DATA 20,30*0*20*20 

1001 DATA 21*30*0*25*25 

1002 DATA 22*30*0*30*30 

1003 DATA 23*30*0*15*15 

1004 DATA 30*1*0*100*0 

1005 DATA 1*10*0*15*0 

1006 DATA 1*11*0*30*0 

1007 DATA 1*12*0*15*0 

1008 DATA 1*13*0*40*0 

1009 DATA 10*20*4*100*0 

1010 DATA 10*21*5*100*0 

1011 DATA 10*22*8*100*0 

1012 DT-ATA 10*23*20*100*0 

1013 DATA 11*20*22*100*0 

1014 DATA 11*21*20*100*0 

1015 DATA 11*22*14*100*0 

1016 DATA 11*23*4*100*0 

1017 DATA 12*20**-3*100*0 

1018 DATA 12*21*12*100*0 

1019 DATA 12*22*5*100*0 

1020 DATA 12*23*17*100*0 

1021 DATA 13*20*8*100*0 

1022 DATA 13*21*14*100*0 

1023 DATA 13*22*6*100*0 

1024 DATA 13*23*29*100*0 
RUN 

GNETFL 

ARCS 



FROM TO COST UPPER LOWER 



20 


30 





20 


20 


21 


30 





25 


25 


22 


30 





30 


30 


23 


30 





15 


15 


30 


1 





100 





1 


10 





15 





1 


11 





30 





1 


12 





15 





1 


13 





40 





10 


20 


4 


100 





10 


21 


5 


100 





10 


22 


8 


100 





10 


23 


20 


100 





11 


20 


22 


100 





11 


21 


20 


100 





11 


22 


14 


100 





11 


23 


4 


100 





12 


20 


3 


100 





12 


21 


12 


100 





12 


22 


5 


100 





12 


23 


17 


100 





13 


20 


8 


100 





13 


21 


14 


100 





13 


22 


6 


100 





13 


23 


29 


100 






DO YOU WANT TO MAXIMIZE OR MINIMIZE7MINIMIZE 
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SOLUTION 



FROM TO FLOW 



20 


30 


20 


21 


30 


25 


22 


30 


30 


23 


30 


15 


30 


1 


90 


1. 


10 


15 


1 


11 


20 


1 


12 


15 


1 


13 


40 


10 


20 





10 


21 


15 


10 


22 





10 


23 





11 


20 





1 1 


21 


5 


11 


22 





11 


23 


15 


12 


20 


15 


12 


21 





12 


22 





12 


23 





13 


20 


5 


13 


21 


5 


13 


22 


30 


13 


23 





NON- 


ZERO NODE PRICES 



NODE PRICE 



10 


15 


12 


11 


13 


6 


20 


14 


21 


20 


22 


12 


23 


4 



MINIMUM TOTAL COST = 570 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 
CONTRIBUTED P R O G R A M JDx\.|3XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



SMALL SYSTEMS SIMULATOR 



GSSS 
36552 



GSSS (Small Systems Simulator) allows the user to simulate the behavior 
of certain types of systems. Almost anything can move through a simulated 
system. The term item is used in GSSS to denote such an entity. Each 
item is created , moved through the system, then destroyed . 



See Page 2 



Graduate School of Business 
Stanford University 



GSSS, Page 2 



INSTRUCTIONS: 

The system to be simulated is described by a set of blocks . Each must be given a number between 
1 and 49. There are six different kinds of blocks. 

The CREATE block creates items at various intervals. Associated with a create block is a mean 
time and a spread . If the spread is positive, the time between creations is drawn randomly from 
a rectangular distribution of values between (mean - spread) and (mean + spread). If the spread 
is negative, the time between creations is drawn randomly from a normal distribution with the 
specified mean and a standard deviation equal to the absolute value of the spread. In either case, 
values below zero are considered to equal zero when drawn. After creation, an item is moved to 
the next block associated with the CREATE block. 

The BRANCH block routes an item to one of two next-blocks, depending on the value of a random 
number drawn from a rectangular distribution between zero and one. Associated with the BRANCH 
is a probability. If the random number is smaller than this value, the item is routed to next- 
block-A . Otherwise, it is routed to next-block-B. 

The ADVANCE block simulates any activity that requires time. The actual time is drawn randomly, 
based on the mean and spread associated with the block. If the spread is positive, a rectangular 
distribution is used, otherwise a normal distribution is used. Procedures are the same as those 
used for a CREATE block. 

Most simulations involve facilities of limited capacity. GSSS allows the use of up to 49 facilities, 
numbered 1 to 49. Each facility has a capacity (if none is given, the capacity is assumed to equal 1), 

The number of items in a facility at any time must be less than or equal to its capacity. If a 
facility is full , no item will be allowed to enter it until another leaves . 

The ENTER block represents the act of entering a facility if it is available (not full), waiting 
up to some maximum time limit if it is not available, and going elsewhere if the maximum waiting 
time is exceeded. A facility number is associated with the ENTER block. If it is available, the 
item will enter it and go to next-block-A. If the facility is not available, the item will remain 
in the ENTER block. When the facility becomes available, the item will then enter it and go on 
to next-block-A . However, if the delay exceeds the maximum waiting time associated with the ENTER 
block, the item will npjt enter the facility, and will instead go on to next-block-B. 

Once in a facility, an item remains until it passes through a LEAVE block. 

When an item has passed through the simulated system it has served its purpose. Since only 100 
items can be in the entire system at any one time, it is essential to route them to a DESTROY 
block when they are no longer needed. 

A diagramatic representation of a simple system is shown on the following page. The number of 
each block is shown immediately above it. 

The description of the system to be simulated should be entered in DATA statements beginning with 
line 9000. For example: 

9000 DATA 1, "CREATE", 5, 2, 2 

This describes block number 1 -- a CREATE block with a mean time of 5 and a spread of 2. The final 
"2" indicates the number of the next block. 

The formats are: 

block number, "CREATE", mean, spread, next block 

block number, "DESTROY" 

block number, "BRANCH", probability, Next-block-A, Next-block-B 

block number, "ENTER", facility, wait time, Next-block-A, Next-block-B 

block number, "LEAVE", facility, next block 

block number, "ADVANCE", mean, spread, next block 
The capacity of a facility is given in one line. For example: 

9014 DATA 1, "FACILITY", 2 
This indicates that facility 1 has a capacity of 2 items. 



INSTRUCTIONS: (continued] 
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ADVANCE 
6 + 3 


— > 


ENTER 
fac. 1 
wait 10 


-> 


ADVANCE 
3 + 1 


-> 


LEAVE 
fac. 1 


gOflNPH 
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r*l 




8 


ENTER 
fac. 1 
wait 15 


— > 


ADVANCE 
7 + 2 






Only one more piece of information is required: the number of items to be moved through the system 
during the simulation. This is also given in one line. For example: 

9015 DATA 50, "ITEMS" 

This indicates that 50 items are to be moved through the system during the simulation. 
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RUN 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 

9008 

9009 

9010 

9011 

9012 

9013 

9014 

9015 

RUN 

GSSS 



DATA 1, "CREATE"* 5* 2*2 
DATA 2* "BRANCH",. 3* 3*4 
DATA 3*"ADVANCE"*6*3*5 
DATA 4 * "ADVANCE"* 15*5*6 
DATA 5*"ENTER"*1*10*7*13 
DATA 6*"ENTER"*1*15*8*14 
DATA 7*"ADVANCE"*3*1*9 
DATA 8* "ADVANCE"* 7* 2* 10 
DATA 9*"LEAVE"*1*11 
DATA 10*"LEAVE"*1*12 
DATA 11*"DESTR0Y" 
DATA 12*"DESTR0Y" 
DATA 13*"DESTR0Y" 
DATA 14*"DESTR0Y" 
DATA 1*"FACILITY"*2 
DATA 50*" ITEMS" 



SYSTEM DESCRIPTION 
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SIMULATION RESULTS 



BLOCK # 


# ENTERED 


# LEFT 
54 


# REMAINING 


1 






2 


54 


54 





3 


14 


14 





4 


40 


36 


4 


5 


14 


14 





6 


36 


36 





7 


14 


14 





8 


36 


36 





9 


14 


14 





10 


36 


36 





11 


14 






12 


36 






13 









14 










FACILITY # CAPACITY 

1 2 

SIMULATED TIME = 271.843 



CURRENT # OF 
OCCUPANTS 



AVERAGE # OF 
OCCUPANTS 

1.12186 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED PROGRAM DAblV 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



COMMITTEE CHOICE ANALYSIS 



GVOTE 
36550 



This program uses simulation to estimate the probability that a committee 
of M members will have transitive preferences among N mutually exclusive 
alternatives when using majority votes in pairwise comparisons. Each mem- 
ber is assumed to have transitive preferences. This is accomplished by 
drawing random numbers to represent the "score" assigned to each alterna- 
tive, then assuming that each member always votes for the member of a 
pair with the largest "score." Each pair is subjected to vote using the 
set of scores drawn for the trial, then the votes are analyzed to deter- 
mine whether or not they are transitive. 

The procedure used to check transitivity of committee choices is as follows. 
First, matrix V is filled in with the results of the vote. V (row, column) 
= the excess of the votes in favor of the row over the column. Values along 
the diagonal are set to zero; those below the diagonal simply equal -1 times 
the corresponding element above (i.e., V,-,- = -V-j-j). Next, the numbers are 



Ji 



ij 



changed to: (-1) if negative, (+1) if positive and the row sums calculated. 
The sum for a row is the value of (number of inferior alternatives - number 
of superior alternatives). Let C-j represent the sum for row (alternative) i 
Then the alternatives rank (R-j) is simply: 



R i = 



+ 1 



Since the committee is assumed to have an odd number of members, no one of 
whom is indifferent between any two alternatives, if the committee's pre- 
ferences are transitive, no two alternatives will have the same rank. Thus 
no two will have the same value of C-j. To check for transitivity then, one 
merely checks to see if any two values of C-j are the same. 

The program allows the user to specify the committee size, the number of al- 
ternatives to be considered, and the number of trials to be run. 



Graduate School of Business 
Stanford University 
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RUN 

RUN 
GVOTE 

DO YOU WANT INSTRUCTIONS7YES 

THIS PROGRAM SIMULATES THE VOTING OF A COMMITTEE 

EACH MEMBER IS ASSUMED TO HAVE TRANSITIVE PREFERENCES 

AMONG A NUMBER OF ALTERNATIVES, ONE OF WHICH 

IS TO BE CHOSEN BY MAJORITY VOTE 
THE NUMBER OF COMMITTEE MEMBERS SHOULD BE ODD, SO 

THERE ARE NO TIES. THUS , GIVEN TWO ALTERNATIVES, 

THE COMMITTEE WILL ALWAYS •PREFER* ONE OVER THE OTHER 
YOU MAY CHOOSE THE NUMBER OF ALTERNATIVES AND THE 

NUMBER OF MEMBERS 
YOU MAY ALSO CHOOSE THE NUMBER OF 'TRIALS' 

YOU MAY THINK OF EACH TRIAL AS A DIFFERENT COMMITTEE 
VOTING ON THE SAME SET OF ALTERNATIVES. 

ALTERNATIVELY, YOU MAY THINK OF EACH TRIAL AS THE 
SAME COMMITTEE VOTING ON A DIFFERENT SET OF 
ALTERNATIVES. 
FOR EACH TRIAL, THE PROGRAM WILL DETERMINE IF THE 

COMMITTEE'S 'PREFERENCES' ARE TRANSITIVE. 

IF SO -- A 'T' WILL BE PRINTED 

IF NOT — A '*' WILL BE PRINTED 
AT THE END, THE PERCENT OF THE TRIALS IN WHICH THE 
COMMITTEE'S PREFERENCES WERE TRANSITIVE WILL BE PRINTED 

HOW MANY ALTERNATIVES <<=20>?5 

HOW MANY MEMBERS C<»100)?3 

HOW MANY TRIALS? 100 

*TTT*T**T**TTT*TT*T*TTTTT*TTTTTTTT*TT*TT*T*T*T*TT*TTTTTTTT**TTTTT***TTTT 

TTT**TT*T*T*TTTTTTT*TT*TTTT* 

PERCENT TRANSITIVE * 70 

DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED PROGRAM liAdlv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LINEAR PROGRAMMING MODEL 



LINPRO 
36068 



Given A=(A(I,J)), B=(B(1) B(M)), and C=(N)), the standard linear pro- 
gramming problem is to find any or all non-negative X=(X(1 ) ,. . . ,X(N)) which 
maximize, (or minimize), the matrix product C*X, subject to the condition 
A*X<=B. C*X+C(N+1) is called the objective function, and the inequalities 
contained in A*XOB, (or A*X>=B), are called the linear constraints. 

LINPRO will generate its own slack and artificial variables, print a matrix 
tableau of the initial problem, the basis after each iteration, the answers 
for the variables and dual variables, the value of the objective function 
and the final tableau. 



First, arrange your constraints so that the 'less than' inequalities precede 
the strict equalities which, in turn, precede the 'greater than' inequalities. 

Do not include coefficients for slack, surplus, or artificial variables. 

The program will ask you to: 

Input whether you wish to see the pivot steps and simplex tableaux. Input 
whether you are maximizing the objective function (as you put it in data), 
or minimizing it. Input the number of constraints and variables in your 
program. Input the number of 'less than inequalities, strict equalities 
and 'greater than' inequalities. Input the constraints and objective 
function. Remember to always type zeros when applicable. 



The A = (Aij) matrix is restricted to 30 X 50 (line 60). This program 
uses the extended tableau method. For a large program the user should 
use a program which uses the condensed tableau method. 



Donald E. Ramirez 
University of Virginia 
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RUN 

RUN 
LINPRO 

A PROGRAM TO SOLVE LINEAR PROGRAMS WITH CONSTRAINTS OF THE FORM 

A*X<=B, A*X=B, AND A*X>=B WHERE B IS A NONNEGATIVE VECTOR. 

DO YOU WISH TO SEE THE PIVOT STEPS (Y OR N)?Y 

DO YOU WISH TO SEE THE SIMPLEX TABLEAUX (Y OR N) ?N 



IF MAX, TYPE • I'l IF MIN, TYPE 



I '?! 



TYPE: NUMBER OF CONSTRAINTS, NUMBER OF VARI ABLES?2,2 

TYPE: NO. OF LESS THANS, NO. OF EQUALITIES, NO. OF GREATER THANS?1,0,1 

ENTER THE SIMPLEX TABLEAU IN THE ORDERS <= INEQUALITIES, 

EQUALITIES, >= INEQUALITIES, OBJECTIVE FUNCTION. 

?1,2,3 

??2,3,4 

??3»4»5 



YOUR VARIABLES J THROUGH 2 
SURPLUS VARIABLES 3 THROUGH 3 
SLACK VARIABLES 4 THROUGH 4 
ARTIFICIAL VARIABLES 5 THROUGH 5 



BASIS BEFORE 

VARIABLE 

4 

5 



ITERATION 
VALUE 
3 
4 



PIVOT COORDINATE IS ( 2 
BASTS BEFORE ITERATION 2 
VARIABLE VALUE 
4 .333333 

2 1.33333 
PIVOT COORDINATE IS ( 1 

BASIS BEFORE ITERATION 3 
VARIABLE VALUE 

3 .5 

2 1 .5 
PIVOT COORDINATE IS C 2 
ANSWERS : 

VARIABLE VALUE 

3 2 
1 3 

DUAL VARIABLES: 
COLUMN VALUE 

3 

4 3 
OBJECTIVE FUNCTION VALUE = 
IN 3 ITERATIONS 



14. 



DONE 



RUN 
LINPRO 

A PROGRAM TO SOLVE LINEAR PROGRAMS WI/TH CONSTRAINTS OF THE FORM 

A*X<=B, A*X=B, AND A*X>=B WHERE B IS A NONNEGATIVE VECTOR. 

DO YOU WISH TO SEE THE PIVOT STEPS <Y OR N)?N 

DO YOU WISH TO SEE THE SIMPLEX TABLEAUX (Y OR N)?N 

IF MAX, TYPE 'l'J IF MIN, TYPE '-l'?l 



TYPE: NUMBER OF CONSTRAINTS, NUMBER OF VARI ABLES? 4, 4 

TYPES NO. OF LESS THANS, NO. OF EQUALITIES, NO. OF GREATER THANS?1,1,2 

ENTER THE SIMPLEX TABLEAU IN THE ORDERS <= INEQUALITIES, 

EQUALITIES, >= INEQUALITIES, OBJECTIVE FUNCTION. 

?1 ,2,3,4, 5 

??2,3,4,5,6 

??3,4,5,6,7 

??4,5,6,7,8 

??1 , 1, 1, 1,0 
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YOUR VARIABLES 1 THROUGH 4 
SURPLUS VARIABLES 5 THROUGH 6 
SLACK VARIABLES 7 THROUGH 7 
ARTIFICIAL VARIABLES 8 THROUGH 10 



ANSWERS: 






VARIABLE 




VALUE 


7 




2. 


5 




2. 


6 




4. 


1 




3. 


DUAL VARIABLES 




COLUMN 




VALUE 


5 







6 







7 







8 




.5 


OBJECTIVE 


FUNCTION VALUE 


IN 4 ITERATIONS 



DONE 



RUN 
LINPRO 

A PROGRAM TO SOLVE LINEAR PROGRAMS WITH CONSTRAINTS OF THE FORM 

A*X<=B, A*X=B, AND A*X>=B WHERE B IS A NONNEGATI VE VECTOR. 

DO YOU WISH TO SEE THE PIVOT STEPS CY OR N)?N 

DO YOU WISH TO SEE THE SIMPLEX TABLEAUX <Y OR N)?Y 

IF MAX, TYPE •!•! IF MIN, TYPE '-l'?! 

TYPE: NUMBER OF CONSTRAINTS* NUMBER OF VARI ABLES74, 4 

TYPE: NO. OF LESS THANS, NO. OF EQUALITIES, NO. OF GREATER THANS? 1,1,2 

ENTER THE SIMPLEX TABLEAU IN THE ORDER: <= INEQUALITIES, 

EQUALITIES, >= INEQUALITIES, OBJECTIVE FUNCTION. 

71,2,3,4,5 

??2,3,4,5,6 

??3,4,5,6,7 

??4,5,6,7,8 

??1, 1,1,1,0 



YOUR VARIABLES 1 THROUGH 4 
SURPLUS VARIABLES 5 THROUGH 6 
SLACK VARIABLES 7 THROUGH 7 
ARTIFICIAL VARIABLES 8 THROUGH 10 



TABLEAU AFTER 
1 2 3 


4 


ITE 


:ratio 



NS 



I 











5 


2 


3 


4 


5 













1 








6 


3 


4 


5 


6 




-1 








* 


1 





7 


4 


5 


6 


7 







-1 











1 


8 


-1 


-1 


- 1 


-1 

























-9 


-12 


-15 


-18 




1 


1 














-2 1 
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TABLEAU AFTER 






.5 




1 








?. 







.5 




1 


-1 





2. 







1. 




2 





-1 


4. 


» 


1 


1 .5 




2 





3. 









.5 




1 





3. 


















ANSWERS: 






VARIABLE 




VALUE 


7 






2. 


5 






2. 


6 

1 






4. 
3. 


DUAL 


VARIABLES: 




COLUMN 




VALUE 


5 









6 









7 









8 






.5 



ITERATIONS 



l.S 



1.5 



-.5 



1.5 



2.5 



I .5 



OBJECTIVE FUNCTION VALUE = 3. 
IN 4 ITERATIONS 

DONE 



RUN 
LINPRO 

A PROGRAM TO SOLVE LINEAR PROGRAMS WITH CONSTRAINTS OF THE FORM 

A*X<=B, A*X=B, AND A*X>=B WHERE B IS A NONNEGATIVE VECTOR. 

DO YOU WISH TO SEE THE PIVOT STEPS (Y OR N) ?Y 

DO YOU WISH TO SEE THE SIMPLEX TABLEAUX CY OR N)? 

??Y 



IF MAX, TYPE MM IF MIN, TYPE 



1 



1 



TYPE: NUMBER OF CONSTRAINTS, NUMBER OF VARI ABLES?2,2 

TYPE: NO. OF LESS THANS, NO. OF EQUALITIES, NO. OF GREATER THANS?1,0,1 

ENTER THE SIMPLEX TABLEAU IN THE ORDER: <= INEQUALITIES, 

EQUALITIES, >= INEQUALITIES, OBJECTIVE FUNCTION. 

71,2,3 

??2,3,4 

??3,4,5 



YOUR VARIABLES 1 THROUGH 2 
SURPLUS VARIABLES 3 THROUGH 3 
SLACK VARIABLES 4 THROUGH 4 
ARTIFICIAL VARIABLES 5 THROUGH 5 



TABLEAU AFTER 
1 2 



ITERATIONS 
1 3 



2 


3 


-1 





1 


4 


3 


-4 











5 


2 


-3 


1 








-4 
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BASIS BEFORE ITERATION 1 
VARIABLE VALUE 

A 3 

5 A 

PIVOT COORDINATE IS ( 2 



TABLEAU AFTER 1 
-.333333 


ITERATIONS 
.666667 1 


-.666667 


.333333 


•66666? 


1 


-.333333 





.333333 


1.33333 


-.333333 





-1.33333 





1.33333 


10.3333 








1 










BASIS BEFORE ITERATION 2 
VARIABLE VALUE 

A .333333 

2 1.33333 

PIVOT COORDINATE IS ( 1 



TABLEAU AFTER 


2 




ITE 


RATIONS 








-.5 







1 




1.5 




-1 


.5 


.5 


1 









.5 







1.5 


-1 







2 







11. 



















1 










BASIS BEFORE ITERATION 3 
VARIABLE VALUE 

3 .5 

2 1.5 

PIVOT COORDINATE IS ( 2 



1 



ITERATIONS 
2 





1 



TABLEAU AFTER 3 
1. 1 

12 1 

2 3 



ANSWERS: 
VARIABLE VALUE 
3 2 

1 3 
DUAL VARIABLES: 

COLUMN VALUE 

3 

A 3 

OBJECTIVE FUNCTION VALUE = 14. 
IN 3 ITERATIONS 



1 

3 

14. 




DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 

SOLVES EITHER A LINEAR OR QUADRATIC PROGRAMMING PROBLEM 



BASIC 



LINQUP 
36710 



This program solves either a linear or quadratic programming problem. 



Enter the following data beginning in line number 9900. 

1. Problem type: "MAX" or "MIN". 

2. Number of terms in the objective function (i.e., the expression 
X..X ? -X,-3X ? consists of three terms). 

3. Number of allocation variables (i.e., the expression X,X 2 -X,-3X 2 
has two allocation variables: X, and X ? ). 

4. Number of constraint equations in the problem. 

5. The terms of the objective function expressed in the following format: 

"entry 1", "entry 2", "coefficient" 

where "entry 1" is the number of an allocation variable and "entry 
2" is the number of an allocation variable; (i.e., the term X-|X? 
would be expressed as 1,2,1 and the term -2X] would be expressed 
as 1,0,-2 or 0,1,-2 where zero signifies that the term is linear). 

6. The coefficients of the constraint equations written in the following 
manner for both maximization and minimization: 

H(X r X 2 , ....XJ >0 

(for example, -4X, -2X„+7>0 would be entered as -4,-2,7). 

The input given in the sample RUN is for the quadratic programming problem: 
Max 6X-, + 3X 2 - X^+ 4X^ 2 - 4X 2 2 

subject to: X] + X 2 £ 3 
4X-| + X 2 1 9 



The program begins at line number 9000. 

The following variables are used in the program: 

A, F, I, 18, 19, J, K, L, P, Q, R, S, U, W, X, Z5, Z6, Z7, Z8, Z9 

A, B, M, R$, S$, T$, V$, Y are array names 



Babson College 

Babson Park, Massachusetts 
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RUN 

9900 DATA "MAX" 

9901 DATA 5,2,2 

9902 DATA 1,1,-1 

9903 DATA 2,2,-4 

9904 DATA 1,2,4 

9905 DATA 1,0,6 

9906 DATA 2,0,3 

9907 DATA -1,-1,3 

9908 DATA -4,-1,9 

RUN 
LINQUP 

OBJECTIVE IS TO MAXIMIZE THE SUM OF THE FOLLOWING TERMS; 

-1 * X( 1 > * X( 1 ) 

-4 * X( 2 ) * X( 2 ) 

4 * X( 1 ) * X( 2 > 

6 * X< 1 ) 

3 * X( 2 ) 

THE CONSTRAINTS ARE: 



H 1 




= : 






-1 


* 


X( 


1 


) 


-1 


* 


X( 


2 


) 


3 










>= 










H 2 




= : 






-4 


* 


X( 


1 


) 


-1 


* 


X( 


2 


) 


9 










>= 











DO YOU WISH TO SELECT THE PIVOT ELEMENTS MANUALLY, YES OR NO 

?NO 

DO YOU WISH PRINTOUT OF INTERMEDIATE TABLEAUS,YES OR NO 

?NO 

ALLOCATION VARIABLES AND ASSOCIATED LAGRANGE MULTIPLIERS 

X 1 = 2. MU 1 = 

X 2 =1 MU 2 =0 

CONSTRAINT RELATIONS AND ASSOCIATED LAGRANGE MULTIPLIERS 



HI =0 MU 3 


= 2 


H 2 =0 MU 4 


= 1 


OBJECTIVE FUNCTION = 


15 


DONE 





MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 
CONTRIBUTED P R O G R A M J$ A»Xv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LINEAR TREND FORECASTING 



LNTRND 
36069 



LNTRND computes a simple linear trend forecast with seasonal adjustments 
for monthly data. (A good fit will result only if the trend is linear.) 



Data should be entered in the following order, beginning in line 9900: 

1. N ■ no. of years for which data will be entered. 

2. A : A : values for year #1 

1 12 

A 2 A 2 values for year #2 

1 12 



A KI A M values for year #N 

Ni IN 12 

Output will be of the following form: 

first the A&B values of the linear forecasting equation: Y = A + B * X, 

and then the forecasts and seasonal values for the next 12 month period, 



N must be <9, otherwise alter dim-statements in line 9230 to 
A[N,12], B[N,12], D[N,12], E[12], F[12]. 
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RUN 

GET-SLNTRND 

LIST-9900 

LNTRND 

9900 DATA 4*2*2.2*2.4*2.6*2.8*3*3.2*3.4*4*4.5*4.8*5 

9901 DATA 5*5. 2*5. 4*5. 6, 5. 3*5. 4*5. 6*5. 7, 5. 8*6*6*6. 1 

9902 DATA 6*6.1*6.3*6.5*6.7*6.8*6.9*6.7*6.7*6.9*7*7 

9903 DATA 7*7*7.1*7*7.2*7.3*6.9*7*7*7.4*7.5*7.5 
9999 END 

RUN 
LNTRND 

* LINEAR TREND FORECASTING * 



********************************************************************** 
LINEAR FORECASTING EQUATION IS: Y = 3.08732 ♦ .105705 * X . 



DATA FOR PERIODS 1 THRU 48 WERE SUPPLIED AS INPUT- 
THE NEXT 12 MONTHS ARE FORECAST HERE: 



PERIOD 


FORECAST 


SEASONAL 


49 


7.97485 


.964679 


50 


8. 1 1943 


.969768 


51 


8.40676 


.991567 


52 


8.5377 


.99461 1 


53 


8.61503 


.99141 1 


54 


8.78659 


.999002 


55 


8.6036 


.96658 


56 


8.57601 


.952173 


57 


8.939 


.980962 


58 


9.76507 


1.05933 


59 


9.97208 


1 .06952 


60 


9.99914 


1.0604 



************************************************************************ 
DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED PROGRAM JjA^lv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



QUEUEING SYSTEM 



M£MZ1 
36655 



This program calculates all the necessary information for a Queueing system 
with single server, Poisson input and Exponential service times. 



The program asks for A(the input rate) and y(the service rate). In the 
Queueing Theory, /=A_ is defined as the traffic intensity. For the 

existence of the steady state probability distribution, / must be less 
than one. 



FOR INSTRUCTIONAL PURPOSES 

Suitable Courses: Introduction to Operations Research 
Introduction to Queueing Theory 



David Y. W. Cheng 

Fu Shing Mfg. & Lumber Co., Ltd. 
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RUN 



RUN 



WHAT ARE THE VALUES OF ARRIVAL RATE, AND SERVICE RATE 
?.3,.56 



THE TRAFFIC INTENSITY = .535714 

THE STEADY STATE QUEUE LENGTH DISTRIBUTION AS FOLLOWS: 



U( 





= 


.464286 


uc 


1 


► = 


.248724 


U( 


2 


► = 


.133245 


uc 


3 


► = 


7.13814E-02 


uc 


a : 


= 


3.82401E-02 


uc 


5 3 


= 


2.04857E-02 


uc 


6 


= 


1 .09745E-02 


uc 


7 


= 


5.87920E-03 


uc 


8 


> = 


3.14957E-03 


uc 


9 


= 


1 .68727E-03 


uc 


10 


> = 


9.03896E-04 


uc 


1 1 


= 


4.84230E-04 


uc 


12 


» = 


2.59409E-04 


uc 


13 


= 


1 .38969E-04 


uc 


14 


= 


7.44478E-05 


uc 


15 


> = 


3.98827E-05 


uc 


16 


= 


2.13658E-05 


uc 


17 


= 


1 .14459E-05 


uc 


18 


> = 


6.13176E-06 


uc 


19 


= 


3.28487E-06 


uc 


20 


> = 


1 .75975E-06 


uc 


21 3 


= 


0. 



THE PROBABILITY OF FINDING MORE THAN N IN THE QUEUE IS PCN) 



PC 





= 


.535714 


PC 


1 


= 


.28699 


PC 


2 


= 


.153745 


PC 


3 3 


= 


8.23632E-02 


PC 


4 


> = 


4.41232E-02 


PC 


5 3 


s 


2.36374E-02 


PC 


6 3 


s 


1 .26629E-02 


PC 


7 


= 


6.78370E-03 


PC 


8 


> = 


3.63413E-03 


PC 


9 


= 


1.94685E-03 


PC 


10 3 


= 


1 .04296E-03 


PC 


1 1 


> = 


5.58727E-04 


PC 


12 


> s 


2.99318E-04 


PC 


13 


> = 


1 .60349E-04 


PC 


14 


> = 


8.59013E-05 


PC 


15 


» s 


4.60186E-05 


PC 


16 


> s 


2.46528E-05 


PC 


17 


> = 


1 .32069E-05 


PC 


18 


) = 


7.0751 1E-06 


PC 


19 


> = 


3.79024E-06 


PC 


20 


= 


2.03049E-06 


PC 


21 


= 


1 .08776E-06 


PC 


22 3 


s 


0. 



THE EXPECTED QUEUE LENGTH = 1.15385 

THE VARIANCE OF QUEUE LENGTH = 2.48521 

THE EXPECTED WAITING TIME = 2.06044 

THE VARIANCE OF WAITING TIME = 11.6041 

THE EXPECTED LENGTH OF BUSY PERIOD = 3.84615 

NOTE 

THIS PROGRAM FORCES ALL PROBABILITIES LESS THAN 
0.000001 TO ZERO. 
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IF HIGHER ACCURACY IS DESIRED, LINE #250, AND #330 
MUST BE PEARRANGED. 



DONE 



RUN 



WHAT ARE THE VALUES OF ARRIVAL RATE, AND SERVICE RATE 
?.5,.3 



THE TRAFFIC INTENSITY = 1.66667 

THE STEADY STATE DISTRIBUTION DOES NOT EXIST 

DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED P R O G R A M Si A.lb M\j 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



M/M/S QUEUEING SYSTEM 



MZMZS 
36656 



This program calculates all the necessary information for a Queueing systen 
with S servers, Poisson input and Exponential service times. The service 
rate between different servers is assumed homogeneous. 



The program will ask for 
(the number of server). 



A(the input rate), y(the service rate) and S 

In the Queueing Theory, f=\ is defined as the 

3 J sy 



traffic intensity. For the existence of the steady state probability 
distribution, / must be less than one. 



FOR INSTRUCTIONAL PURPOSES 

Suitable Courses: Introduction to Operations Research 
Introduction to Queueing Theory 



David Y. W. Cheng 

Fu Shing Mfg. & Lumber Co., Ltd. 
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RUN 

RUN 
M2M2S 



WHAT ARE THE VALUES OF ARRIVAL RATE, AND SERVICE RATE 

?4,2.5 

WHAT IS THE NUMBER OF SERVERS 

?2 



THE TRAFFIC INTENSITY 



8 



THE STEADY STATE QUEUE LENGTH DISTRIBUTION 
IN THE SYSTEM IS UCN), AND THE PROBABILITY 
THAN N IN THE QUEUE IS PCN): 



.111111 

= .177778 

= .142222 

= .113778 

= 9.10222E-02 

= 7.28178E-02 

= 5.82542E-02 

= 4.66034E-02 

= 3.72827E-02 

= 2.98262E-02 

= 2.38609E-02 

= 1.90887E-02 

= .015271 

= 1.22168E-02 

= 9.77343E-03 

= 7.81874E-03 

= 6.25499E-03 

= 5.00399E-03 

= 4.00319E-03 

= 3.20255E-03 

= 2.56204E-03 

= 2.04964E-03 

= 1.63971E-03 

= 1.31177E-03 

= 1.04941E-03 

= 8.39530E-04 

= 6.71624E-04 

= 5.37299E-04 

= 4.29839E-04 

= 3.43871E-04 



FOR N CUSTOMER 
OF FINDING MORE 



uc 


) = 


uc 


1 ) 


u< 


2 ) 


U( 


3 ) 


U( 


4 ) 


U( 


5 ) 


U( 


6 ) 


U( 


7 ) 


UC 


8 > 


U( 


9 ) 


uc 


10 > 


U( 


1 1 ) 


U( 


12 ) 


U( 


13 ) 


uc 


14 ) 


uc 


15 ) 


uc 


16 ) 


uc 


17 ) 


uc 


18 ) 


uc 


19 ) 


uc 


20 ) 


uc 


21 ) 


uc 


22 ) 


uc 


23 ) 


uc 


24 ) 


uc 


25 ) 


uc 


26 ) 


uc 


27 ) 


uc 


28 ) 


uc 


29 ) 



PC 


) = 


.888889 


PC 


1 


> = 


.711111 


PC 


2 


> = 


.568889 


PC 


3 


> = 


.4551 11 


PC 


4 


= 


.364089 


PC 


5 


= 


.291271 


PC 


6 


= 


.233017 


PC 


7 


= 


.186413 


PC 


8 


= 


.149131 


PC 


9 


= 


. 1 19304 


PC 


10 : 


= 


9.54435E-02 


PC 


1 1 


= 


7.63547E-02 


PC 


12 


= 


6.10838E-02 


PC 


13 ) 


= 


.048867 


PC 


14 


= 


3.90936E-02 


PC 


15 


= 


3.12749E-02 


PC 


16 


► = 


2.50199E-02 


PC 


17 


= 


2.00158E-02 


PC 


18 


= 


1 .60127E-02 


PC 


19 


= 


1 .28101E-02 


PC 


20 


= 


1.02481E-02 


PC 


21 


= 


8.19838E-03 


PC 


22 


= 


6.55866E-03 


PC 


23 


> = 


5.24688E-03 


PC 


24 


► = 


4.19748E-03 


PC 


25 


= 


3.35801E-03 


PC 


26 : 


= 


2.68638E-03 


PC 


27 


= 


2.14911E-03 


PC 


28 


= 


1 .71924E-03 


PC 


29 : 


- 


1 .37532E-03 
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= 2.75097E-04 
= 2.20078E-04 
= 1.76062E-04 
= 1.40850E-04 
= 1.12680E-04 
= 9.01438E-05 
= 7.21 150E-05 
= 5.76920E-05 
= 4.61536E-05 
= 3.69229E-05 
= 2.95383E-05 
= 2.36306E-05 
= 1.89045E-05 
= 1.51236E-05 
= 1.20989E-05 
= 9.67910E-06 
= 7.74328E-06 
= 6.19463E-06 
= 4.95570E-06 
= 3.96456E-06 
= 3.17165E-06 
= 2.53732E-06 
= 2.02985E-06- 
= 1.62388E-06 
= 1.29911E-06 
= 1 .03929E-06 
= 0. 

THE PROBABILITY THAT ALL SERVERS WILL BE BUSY = .711111 

THE PROBABILITY THAT AT LEAST ONE CUSTOMER >»ILL BE WAITING 
= .568889 



IK 


30 > 


U< 


31 ) 


UC 


32 ) 


U( 


33 ) 


U< 


34 ) 


U( 


35 ) 


UC 


36 ) 


U( 


37 ) 


U< 


38 ) 


U( 


39 ) 


U( 


40 ) 


U( 


41 ) 


U( 


42 ) 


UC 


43 ) 


U( 


44 ) 


U( 


45 ) 


UC 


46 ) 


UC 


47 ) 


UC 


48 ) 


UC 


49 ) 


UC 


50 ) 


UC 


51 ) 


UC 


52 ) 


UC 


53 ) 


UC 


54 ) 


UC 


55 ) 


UC 


56 ) 



PC 


30 


> = 


1 . 10018E-03 


PC 


31 


> = 


8.80122E-04 


PC 


32 


> = 


7.04050E-04 


PC 


33 


> = 


5.63145E-04 


PC 


34 


> = 


4.50492E-04 


PC 


35 


= 


3.60370E-04 


PC 


36 


> = 


2.88248E-04 


PC 


37 


> = 


2.30551E-04 


PC 


38 


> = 


1 .84417E-04 


PC 


39 


= 


1 .47462E-04 


PC 


40 


> = 


1.17898E-04 


PC 


41 


> = 


9.42945E-05 


PC 


42 


= 


7.53403E-05 


PC 


43 


» = 


6.02007E-05 


PC 


44 


= 


4.81606E-05 


PC 


45 


= 


3.85046E-05 


PC 


46 3 


= 


3.07560E-05 


PC 


47 3 


= 


2.45571E-05 


PC 


48 


= 


1.95503E-05 


PC 


49 3 


= 


1 .56164E-05 


PC 


50 


= 


1 .23978E-05 


PC 


51 


> = 


9.89437E-06 


PC 


52 


= 


7.86781E-06 


PC 


53 3 


= 


6.19888E-06 


PC 


54 3 


= 


4.88758E-06 


PC 


55 3 


= 


3.81470E-06 


PC 


56 


— 


0. 



THE EXPECTED QUEUE LENGTH 



4.44444 



THE EXPECTED NUMBER OF CUSTOMERS ACTUALLY WAITING 
= 2.84444 



THE EXPECTED WAITING TIME = .711111 
THE EXPECTED NUMBER OF BUSY SERVERS 



1.6 



NOTE- 



THIS PROGRAM FORCES ALL PROBABILITIES LESS THAN 
0.000001 TO ZERO. 

IF HIGHER ACCURACY IS DESIRED* LINE #460, #530, AND 
#580 MUST BE REARRANGED. 



DONE 
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RUN 
M/M/S 



WHAT ARE THE VALUES OF ARRIVAL RATE* AND SERVICE RATE 

?3.5,1 

WHAT IS THE NUMBER OF SERVERS 

?3 



THE TRAFFIC INTENSITY = 1.16667 

THE STEADY STATE DISTRIBUTION DOES NOT EXIST 

DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED PROGRAM JjA^lv' 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MAXIMUM FLOW IN A CAPACITATED NETWORK USING THE 
LABELING TECHNIQUE OF FORD & FULKERSON 



MAX FLO 
36609 



Consider a connected network consisting of a single source, a single sink, 
and some intermediate nodes. We assume that there is a capacity restric- 
tion c..>=0 (usually c.^c.) on each arc connecting node i and node j. 

JJ J JJ JJ y 

The problem is to assign flow for the various arcs in such a way that the 
sum of flow from source to sink is maximized, yet none of the capacity 
constraint has been violated. 



Label the nodes in such a way that node 1 is the source and node N is the 
sink in a N-node network. 

Input data starting on line 2000 as follows: 



2000 DATA N 

2001 DATA I,J,C(I,J) 



DATA N,N,0 

continued on following page 



The number of nodes 

The capacity from i to j 



Last line must be N,N,0 



FOR INSTRUCTIONAL PURPOSES 

Suitable Courses: Introduction to Operations Research 
Introduction to Graph Theory 



David Y. W. Cheng 

Fu Shing Mfg. & Lumber Co., Ltd. 
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INSTRUCTIONS - continued 
"MAXFLO SAMPLE PROBLEM" 



JO K/#C£ 




RUN 



2000 


DATA 


15 


2001 


DATA 


li 


2,20 


2002 


DATA 


li 


3, 18 


2003 


DATA 


1 , 


4, 12 


2004 


DATA 


li 


5, 16 


2005 


DATA 


2j 


1*4 


2006 


DATA 


2i 


3,6 


2007 


DATA 


2j 


6, 18 


2008 


DATA 


3i 


1, 5 


2009 


DATA 


3i 


2,6 


2010 


DATA 


3; 


,4,8 


201 1 


DATA 


3j 


7,30 


2012 


DATA 


3i 


8,25 


2013 


DATA 


4i 


1,7 


2014 


DATA 


4i 


3,2 


2015 


DATA 


4j 


9, 16 


2016 


DATA 


5, 


1,8 


2017 


DATA 


5> 


7,22 


2018 


DATA 


5, 


9, 14 


2019 


DATA 


6j 


2,8 


2020 


DATA 


6, 


3,3 


2021 


DATA 


6, 


7,3 


2022 


DATA 


6, 


10,4 


2023 


DATA 


7, 


3 = 


2024 


DATA 


7j 


6,5 


202 5 


DATA 


1 , 


10,8 


2026 


DATA 


7, 


11,5 


2027 


DATA 


8j 


3, 14 


2028 


DATA 


8i 


9,3 
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2029 


DATA 


8* 


I 1*7 


2030 


DATA 


8, 


12*4 


2031 


DATA 


9,< 


4, 10 


2032 


DATA 


9,. 


5,5 


2033 


DATA 


9,8,4 


2034 


DATA 


9, 


2,6 


2035 


DATA 


10; 


.6, 1 


2036 


DATA 


10; 


.7,6 


2037 


DATA 


10; 


> 13, 15 


2038 


DATA 


10; 


> 14,8 


2039 


DATA 


1 1; 


.7> 


2040 


DATA 


1 1; 


. 12, 1 


2041 


DATA 


1 1; 


.13, 10 


2042 


DATA 


1 1; 


. 15, 12 


2043 


DATA 


12; 


8,4 


2044 


DATA 


12; 


.9,9 


2045 


DATA 


12; 


. 1 1,8 


2046 


DATA 


12; 


14,7 


2047 


DATA 


13; 


. 10,8 


2048 


DATA 


13; 


► 11,9 


2049 


DATA 


13; 


.15,3 


2050 


DATA 


14; 


.10,2 


2051 


DATA 


14; 


. 12,3 


2052 


DATA 


14; 


.15,4 


2053 


DATA 


15; 


. 1 1,22 


2054 


DATA 


15; 


. 13,22 


2055 


DATA 


15; 


. 14,22 


2056 


DATA 


15 


.15,0 


2023 


DATA 


7,; 


3, 10 


2039 


DATA 


1 1; 


.7,2 



RUN 
MAXFLO 

THE CHAIN CONNECT NODE 1 (SOURCE) AND NODE 15 (SINK) 

1 3 7 1115 

FLOW = 5 

THE CHAIN CONNECT NODE 1 (SOURCE) AND NODE 15 (SINK) 

1 3 8 11 15 

FLOW = 7 

THE CHAIN CONNECT NODE 1 (SOURCE) AND NODE 15 (SINK) 

1 2 6 10 13 15 

FLOW = 3 

THE CHAIN CONNECT NODE 1 (SOURCE) AND NODE 15 (SINK) 
1 2 6 10 14 15 
FLOW = 1 

THE CHAIN CONNECT NODE 1 (SOURCE) AND NODE 15 (SINK) 
1 3 7 10 14 15 
FLOW = 3 



THE OPTIMAL SOLUTION AS FOLLOWS: 



F( 1; 


. 2) = 


4.00 


F( 1; 


. 3) = 


15.00 


F( 2; 


6) = 


4.00 


F( 3; 


. 7) = 


8.00 


F( 3; 


8) = 


7.00 


F( 6; 


. 10) = 


4.00 


F( 7 


. 10) = 


3.00 


F( 7 


.11) = 


5.00 


F( 8; 


,11) = 


7.00 


F( 10; 


. 13) = 


3.00 


F( 10; 


. 14) = 


4.00 


F( 1 1; 


. 15) = 


12.00 


F( 13; 


. 1 5) = 


3.00 


F( 14; 


. 1 5) = 


4.00 



THE MAXIMUM FLOW = 19 



DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 

CONTRIBUTED PROGRAM iSAulv 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SHORTEST ROUTE PROBLEM USING THE METHOD OF DYNAMIC 
PROGRAMMING WITH SUCCESSIVE APPROXIMATION IN FUNCTIONAL SPACE 



SHORTR 
36610 



In an N-node network, where the distance (or cost) from node i to node j is 
cai (c.j.j>=0). The problem is to find a chain from node 1 to node N, such 
that the total distance (or cost) is minimized. 

Label the nodes in such a way that node 1 is the origin and node N is the 
destination in a N-node network. 

Input data start on line 2000 as follows: 



2000 DATA N 

2001 DATA I,J,C(I,j; 



DATA N,N,0 



The number of nodes 
Only the existing arcs 



Last line must be N,N,0 



In 2), C(I,J) or C(J,I) need only be entered once if it is a two-way traffic 
network, must be entered separately if it is a one-way traffic network. 




FOR INSTRUCTIONAL PURPOSES 

Suitable Courses: Introduction to Operations Research 
Introduction to Dynamic Programming 



David Y. W. Cheng 

Fu Shing Mfg. & Lumber Co., Ltd. 
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RUN 

2000 DATA 10 

2001 DATA 1,2,7 

2002 DATA 1,3,8 

2003 DATA 2,3,7 

2004 DATA 2,4,8 

2005 DATA 2,5,6 

2006 DATA 3,5,6 

2007 DATA 3,6,4 

2008 DATA 4,5,2 

2009 DATA 4,7,3 

2010 DATA 4,8,3 

2011 DATA 5,6,7 

2012 DATA 5,7,2 

2013 DATA 5,8,6 

2014 DATA 6,8,9 

2015 DATA 7,8, 5 

2016 DATA 7, 10,9 

2017 DATA 6,9,6 

2018 DATA 8,9,8 

2019 DATA 8, 10,8 

2020 DATA 9, 10,8 

2021 DATA 10,10,0 



RUN 
SHORTR 

TYPE 1-FOR ONE WAY TRAFFIC (C( I , J)#C( J, I ) ) 

2-FOR TWO WAY TRAFFIC (C ( I , J)=C ( J, I > > 
?1 

AFTER 5 ITERATIONS, WE FOUND THE OPTIMAL SOLUTION AS FOLLOWS: 



FROM 


TO 


DISTANCE 


1 


2 


7.00 


2 


5 


6.00 


5 


7 


2.00 


7 


10 


9.00 



TOTAL DISTANCE = 24 
DONE 



RUN 
SHORTR 

TYPE 1-FOR ONE WAY TRAFFIC <C( I , J)#CC J, I ) ) 

2-FOR TWO WAY TRAFFIC (C ( I , J) =C( J, I > > 
?2 

AFTER 9 ITERATIONS, WE FOUND THE OPTIMAL SOLUTION AS FOLLOWS 



FROM 


TO 


DISTANCE 


1 


2 


7.00 


2 


5 


6.00 


5 


7 


2.00 


7 


10 


9.00 


TOTAL 


DISTANCE 


= 24 


DONE 







MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



FIRST DIFFERENCES, PERCENT CHANGES, PERCENT DIFFERENCE 



BASIC 



TIMDIF 
36801 



This program calculates first differences, percent changes, or percent 
differences for up to 1000 time periods. The average change, variance, 
standard deviation, and Durbin-Watson statistic are also calculated. 
Data may be entered through DATA statements or a data file. 



Enter data in DATA statements beginning at line 5000, or store data on 
a sequential file. When running, the program will ask the user to 
select various options. 



If file input is used, the data must be stored on a sequential file. 



Larry Lazzarini 
De Paul University 
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RUN 

RUN 
TIMDIF 

DO YOU WANT IN5TRUCTI ONSC 1=YES, = NO> ? 1 

THIS PROGRAM READS IN A VECTOR 07 VALUES (1000 ELEMENTS 

MAXIMUM) AND CALCULATES EITHER (l)FIRST DIFFERENCES., 

<2> PERCENTAGE CHANCES, OR (3) PERCENT DIFFERENCES, 

DEPENDING ON THE USER'S OPTION. 

ENTER DATA IN DATA STATEMENTS STARTING ON LINE 5000 

AS FOLLOWS: 



5000 DATA N1,N2,N3,N4, ETC. 

N1,N2,N3,N4, ETC. ARE THE VALUES. THIS PROGRAM WILL 
OPTIONALLY USE DATA FILE INPUT INSTEAD OF DATA STATEMENTS. 

DONS 



5000 


DATA 


59. 


.22,54.74, 17. 


50 10 


DATA 


38. 


.2,63.35, 10.2 


5020 


DATA 


22. 


. 13,99.84,67. 


5030 


DATA 


30. 


.48,43.91,90.. 


5040 


DATA 


87. 


■ 59,57.04,97. 


5050 


DATA 


76. 


. 1 1,66.37, 15.' 


5060 


DATA 


13. 


.02,54. 76,46.i 


50 70 


DATA 


1 1. 


.99,70. 13, 16.: 


5080 


DATA 


30. 


18,73. 12,94. 


5090 


DATA 


80. 


■ 4,56.34,65.9' 


6000 


END 






RUN 








TIMDIF 







5 7,20.45,65.64, 71 .22, 19.06,60.27, 33. 12, 75.26 
1,13. 13, 78. 57, 93. 39, 97. 26, 95. 13, 66. 31, 26. 84 
22,92.37,92.38,33.35,31.96,26.03,71.6,95.51 
45,67.9 3,2. 1,60.39,39.33, 17.2, 75.23,68.9 3 
33,3.09,72.5 1,9 3.25, 18.97,97.37,2.07,35.07 
03, 96. 36, 14. 04, 21. 08, 42. 28, 58. 71, 46. 96, 41. 06 
8 2,21. 13,49.69,58.08,5 5.2, 1 1.55,9 5.28,30.73 
31,7.8 1,94.65,45.6,28.78,84.26,61.72,9.79 
39,59. 18,49. 1,4.08,29.88,2.3 1,38.32,30.9 3 
6, 16.8 2, 31.3,60.68,44. 71,65.95, 12.37,44 



DO YOU WANT INSTRUCTIONSf 1 =YES, 0=NO) ? NO 

??0 

1= DATA ON FILE, 0= DATA IN DATA STATEMENTS. WHICH ?0 

DO YOU WANT YOUR RAW DATA PRINTEDC 1=YES, 0=NO ) ?1 

# OF VALUES? 100 



ENTER THE NUMBER OF YOUR OPTION 
1 FOR 1ST DIFF., 2 FOR % CHANGES, 
? 1 



3 FOR % DIFF. 



DATA: 
















59.22 


54.74 


17.57 


20.45 


65.64 


71 .22 


19.06 


60.27 


38.12 


75.26 


38.20 


63.35 


10.21 


13. 18 


78.57 


93.39 


97.26 


95. 13 


66.31 


26.84 


22. 13 


99.84 


67.22 


92.37 


92.38 


88.35 


81.96 


26.08 


71.60 


95.51 


30.48 


43.91 


90.45 


67.93 


2. 10 


60.39 


39.33 


17.20 


75.23 


68.93 


87.59 


57.04 


97.33 


3.09 


72.51 


93.25 


18.97 


97.37 


2.07 


35.07 


76. 1 1 


66.37 


15.03 


96.86 


14.04 


21.08 


42.28 


58.71 


46.96 


41.06 


13.02 


54.76 


46.82 


21.13 


49.69 


58.08 


55.20 


1 1.55 


95.28 


30.73 


11.99 


70.18 


16.81 


7.81 


94.65 


45.60 


28.78 


84.26 


61.72 


9.79 


80. 18 


73. 12 


94.39 


59. 18 


49. 10 


4.08 


29.88 


2.81 


88.32 


30.93 


80.40 


56.34 


65.96 


16.82 


31.30 


60.68 


44.71 


65.95 


12.37 


44*00 











MEAN = 5 1.9959 

VARIANCE = 8 75.174 

STANDARD DEVIATION = 29.58 33 

DURBIN-WATSON STATISTIC = 2.12907 
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TRANSFORMED DATA: 



-4.48 


-37. 17 


2.88 


45. 19 


5.58 


-52.16 


41.21 


-22.15 


37. 14 


-37.06 


25.15 


-53. 14 • 


2.97 


65.39 


15.32 


3.37 


-2.13 


-28.32 


-39.9 7 


-4.66 


77.66 


-32.62 


25.15 


0.01 


-4.0 3 


-6.39 


-55.88 


45.52 


23.91 


-65.03 


13.43 


46.54 


22.52 


-65.83 


58.29 


-21.06 


-22. 13 


58.03 


-6.30 


18.66 


30.55 


40.29 


-94.24 


69.42 


20.74 


-74.28 


78.40 


-95.30 


33.00 


41.04 


-9.74 


-51.34 


81.83 


-82.82 


7.04 


21 .20 


16.43 


-1 1.75 


-5.90 


-28.04 


4 1.74 


-7.94 


-25.69 


28.56 


8.39 


-2.88 


-43.65 


83.73 


-64.55 


-18.74 


58. 19 


-53.37 


-9.00 


86.84 


-49.05 


-16.82 


55.48 


-22.54 


-51.93 


70.39 


-7.06 


21.27 


-35.21 


-10.08 


-45.02 


25.80 


-27.07 


85.51 


57.39 


49.47 


-24.06 


9.62 


-49. 14 


14.48 


29.38 


-15.97 


21.24 


-53.58 


31.63 













MEAN = -. 153737 

VARIANCE = 1882.29 

STANDARD DEVIATION = 4 3.3854 

DURBIN-WATSON STATISTIC = 3.03707 



ANOTHER OPTION C1=YES,0=NO> ?1 



ENTER THE NUMBER OF YOUR OPTION 
1 FOR 1ST DIFF., 2 FOR % CHANGES, 
?2 



3 FOR % DIFF. 



■RAW DATA: 
















59.22 


54.74 


17.57 


20.45 


65.64 


71.22 


19.06 


60.27 


38.12 


75.26 


38.20 


63.35 


10.21 


13. 18 


73.57 


93.89 


9 7.26 


95. 13 


66.81 


26.84 


22.18 


99.84 


67.22 


92.37 


92.38 


88.35 


81.96 


26.08 


71.60 


95.51 


30.48 


43.91 


90.45 


67.93 


2.10 


60.39 


39.33 


17.20 


75.23 


68.93 


3 7.59 


57.04 


97.33 


3.09 


72.51 


93.25 


18.97 


97.37 


2.0 7 


35.07 


76. 11 


66.37 


15.03 


96.36 


14.04 


21.08 


42.23 


58.71 


46.96 


41.06 


13.02 


54.76 


46.82 


21.13 


49.69 


58.08 


55.20 


1 1.55 


95.23 


30.73 


11.99 


70.18 


16.31 


7.81 


94.65 


45.60 


28.78 


34.26 


61.72 


9.79 


80.18 


73. 12 


94.39 


59. 18 


49.10 


4.08 


29.38 


2.81 


88.32 


30.93 


80.40 


56.34 


65.96 


16.82 


31.30 


60.68 


44.71 


65.95 


12.37 


44.00 











MEAN = 51.9959 

VARIANCE = 8 75.174 

STANDARD DEVIATION = 29.58 33 

DURBIN-WATSON STATISTIC = 2.12907 



TRANSFORMED DATA: 



92.43 


32. 10 


116.39 


320.98 


108.50 


26.76 


316.21 


63.25 


197.43 


50.76 


165.84 


16. 12 


129.09 


59 6. 13 


119.50 


103.59 


97.81 


70.23 


40. 17 


82.64 


450. 14 


67.33 


137.41 


100.01 


95.64 


92.77 


31.82 


274.54 


133.39 


31.91 


144.06 


205.99 


75. 10 


3.09 


28 75.71 


65.13 


43.73 


437.38 


91.63 


127.07 


65.12 


170.63 


3.17 


2346.60 


123.60 


20.34 


513.28 


2.13 


1694.20 


217.02 


87.20 


22.65 


644.44 


14.50 


150*14 


200.57 


133.86 


79.99 


87.44 


31.71 


420*58 


85-50 


45.13 


235. 16 


1 16.88 


95.04 


20.92 


824.94 


32.25 


39.02 


585.32 


23.95 


46.46 


1211.91 


48. 18 


63. 11 


292.77 


73.25 


15.86 


819.00 


91.19 


129.09 


62.70 


82.97 


8.31 


732.35 


9.40 


3143.06 


35.0 2 


259.94 


70.07 


117.07 


25.50 


186.09 


193.87 


73.68 


147.51 


18.76 


355.70 













MEAN = 259.454 

VARIANCE - 270728. 

STANDARD DEVIATION = 520.315 

DURBIN-WATSON STATISTIC = 2.31805 



ANOTHER OPTION < 1=YES.»0=NO> ?1 
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ENTER THE NUMBER OF YOUR OPTION 
1 FOR 1ST DIFF., 2 FOR % CHANGES, 
?3 



3 FOR % DIFF. 



RAW DATA: 
















59.22 


54.74 


17.57 


20.45 


65.64 


71 .22 


19.06 


60.27 


38.12 


75.26 


38.20 


63.35 


10.21 


13. 18 


78.57 


93.89 


97.26 


95. 13 


66.81 


26.84 


22.18 


99.84 


67.22 


92.37 


92. 3S 


38.35 


81.96 


26.08 


71.60 


95.51 


30.48 


43.91 


90.45 


67.93 


2. 10 


60.39 


39.33 


17.20 


75.23 


63.9 3 


87.59 


57.04 


97.33 


3.09 


72.51 


93.25 


18.97 


97.37 


2.07 


35.07 


76. 1 1 


66.37 


15.03 


96.86 


14.04 


21.08 


42.28 


58.71 


46.96 


41.06 


13.02 


54.76 


46.82 


21 .13 


49.69 


58.08 


55.20 


1 1.55 


95.28 


30.73 


1 1.99 


70. 18 


16.81 


7.81 


94.65 


45.60 


28.73 


84.26 


61.72 


9.79 


80. 18 


73. 12 


94.39 


59.18 


49. 10 


4.03 


29.88 


2.81 


88.32 


30.93 


80.40 


56.34 


65.96 


16.82 


31 .30 


60.68 


44.71 


65.95 


12.37 
MEAN = 5 1 


44.00 
.9959 












VARIANCE = 875. 174 










STANDARD DEVIATION = 29 


.5833 










DURBIN-WATSON STATISTIC = 2. 


12907 











TRANSFORMED DATA: 



-8. 18 


-211.55 


14.08 


68.85 


7.83 


-273.66 


68.38 


-58.11 


49.35 


-97.02 


39.70 


-520.47 


22.53 


83.23 


16.32 


3.46 


-2.24 


-42.39 


-148.92 


-21.01 


77.73 


-48.53 


27.23 


0.01 


-4.56 


-7.80 


-214.26 


63.58 


25.03 


-213.35 


30.59 


51 .45 


-33. 15 


-3134.76 


96.52 


-53.55 


-128.66 


77. 14 


-9.14 


21.30 


-53.56 


4 1.40 


-3049.84 


95.74 


22.24 


-391.57 


80.52 


-4603.86 


94. 10 


53.92 


-14.68 


-341.58 


84.48 


-589.89 


33.40 


50.14 


27.99 


-25.02 


-14.37 


-215.36 


76.22 


-16.96 


-121.53 


57.48 


14.45 


-5.22 


-377.92 


87.88 


-210.06 


-156.30 


32.92 


-317.49 


-1 15.24 


9 1.75 


-107.57 


-58.44 


65.84 


-36.52 


-530.44 


87.79 


-9.66 


22.53 


-59.50 


-20.53 


-1 103.43 


86.35 


-963.35 


96.32 


-185.55 


61.53 


-42.71 


14.58 


-292. 15 


46.26 


48.42 


-35.72 


32.21 


-433. 14 


71.89 
















MEAN = -174.316 












VARIANCE = 42647 2. 










STANDARD DEVIATION = 653.048 










DURBIN-WATSON STATISTIC = 2. 


.2431 1 











ANOTHER OPTION C1=YES,0=NO> ?0 
DONE 



MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (600) 
CONTRIBUTED P R O G R A M .DXXl^H/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



TRANSPORTATION PROBLEM 



TRANSP 
36230 



This program provides optimal solutions to the transportation class of 
linear programs, and determines the cost of implementing the solution. 



Enter data beginning in line 9000 as follows: 



1. i,j 

2. a-i ,a«» . 

3. b-|,b 2 ,. 

4. c ir c 12 

c 21' c 22 



c iT c i2 



. ,a. 



.,b. 



...,c 



lj 



...,c 2j 



i = number of rows; j = number of columns 

a. = rim value for row i 

b. = rim value for column j 

J 



c«. = elements of the cost/profit matrix, 
J row by row 



...,c 



ij 



The program is capable of handling either cost or profit matrices up to 
a maximum size of 20 x 20. 

The rim requirements (sources and destinations) must be represented as 
integers. 

This program is based on a restricted primal -dual algorithm described by 
Ford and Fulkerson in Management Science, 3, No. 1 (1956), pp. 24-32. 



Lynn W. Marples 

University of Western Ontario, Canada 
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RUN 

9000 DATA 3,3 

9001 DATA 1,2,3 

9002 DATA 3,2,1 

9003 DATA 1,2,3, 6,4,2, 1,4,7 
RUN 

TRANSP 

THE TRANSPORTATION PROBLEM 

TYPE: +1 FOR COST MINIMIZATION 

OR -1 FOR PROFIT MAXIMIZATION. WHICH7+1 

OPTIMAL SOLUTION 

1 

1 1 

3 



OBJECTIVE FUNCTION = 11 



DONE 

RUN 

TRANSP 



THE TRANSPORTATION PROBLEM 



TYPE: +1 FOR COST MINIMIZATION 

OR -1 FOR PROFIT MAXIMIZATION. WHICH? -1 

OPTIMAL SOLUTION 

1 

2 
2 1 

OBJECTIVE FUNCTION = 28 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM IjA^lV 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANNUITY ANALYSIS 



ANNUIT 
36074 



This program performs the calculations necessary for determining both 
payment and withdrawal annuities. 

See any standard textbook on annuities for the computational method. 



To use this program, supply values for the variables as required by the 
problem. 

Variables are denoted as follows: 

N = Number of periods 

P = Original principal amount 

A = Total amount at end of n periods 

I = Interest rate per period, in percent 

R = Amount of payment/withdrawal each period 

For a payment annuity, you may give any three of N,A,I,R and find the 
fourth. 

For a withdrawal annuity, you give any three of N,P,I,R and find the 
fourth. 

For loan or mortgage, use the withdrawal annuity option. 

After each case, you may choose one of the following alternatives: 

1 = Another case, same unknown variable 

2 = Another case, different unknown 

3 = Another case, other type of annuity 

4 = Total interest paid over n periods 

5 = Table of withdrawals, principal, and interest 

6 = Stop the program 



The answer does not account for any simple interest that might have 
been paid on deposits prior to the first compounding period. 




m 
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RUN 

GET-SANNUIT 

RUN 

ANNUIT 

* ANNUITY * 

THIS PROGRAM COMPUTES PAYMENT AND WITHDRAWAL ANNUITIES. 

DEFINITION OF VARIABLES! 
--N * NUMBER OF PERIODS 
--A « AMOUNT LEFT AT END OF N PERIODS 
--I = INTEREST IN PERCENT PER PERIOD 
--R « AMOUNT OF PAYMENT PER PERIOD 
--P * ORIGINAL PRINCIPAL AMOUNT 



WHICH ANNUITY TYPE (INPAYMENT* 2=WITHDRAWAL >?2 
WHICH VARIABLE IS UNKNOWN ( 1 *N*2»P* 3« I* 4»R >?4 
WHAT ARE N<INTEGER)*P<$)» I CPCT >? 1 0* 1 000* 1 
WITHDRAWAL EACH PERIOD = R = 162.746 



ANOTHER CASE? ENTER ONE OF THE FOLLOWING! DM' FOR ANOTHER CASE* SAME 
TYPEI 2) , 2* FOR ANOTHER CASE* DIFFERENT UNKNOWNl 3>'3' FOR ANOTHER 
CASE* OTHER TYPE OF ANNUITYl 4> , 4' TO GET TOTAL INTEREST PAID OVER THE 
N PERIODSl 5)*5' FOR A TABLE OF WITHDRAWALS* PRINCIPAL* AND INTERESTl 
OR 6>*6' TO TERMINATE75 



PERIOD 


PRINCIPAL 


INTEREST 


PR INC BAL 


INT TO DATE 









1000 




1 


62.75 


100 


937.255 


100 


2 


69*02 


93.73 


868*234 


193.73 


3 


75.92 


86.82 


792.312 


280.55 


4 


83.51 


79.23 


708.798 


359.78 


5 


91 .87 


70.88 


616*932 


430.66 


6 


101.05 


61 .69 


515.88 


492.3 5 


7 


111*16 


51.59 


404*723 


543.94 


8 


122.27 


40*47 


282.45 


584.41 


9 


134.5 


28*25 


147.949 


612.66 


10* 


147.95 


14*79 





627.455 



ANOTHER CASE? ENTER ONE OF THE FOLLOWING! l)'l* FOR ANOTHER CASE* SAME 
TYPE* 2)'2' FOR ANOTHER CASE* DIFFERENT UNKNOWNl S)^' FOR ANOTHER 
CASE* OTHER TYPE OF ANNUITY! 4> , 4' TO GET TOTAL INTEREST PAID OVER THE 
N PERIODSl SVS* FOR A TABLE OF WITHDRAWALS* PRINCIPAL* AND INTERESTl 
OR 6) # 6* TO TERMINATE76 

DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R G R A M H XX^Xv/ 



ACKNOWLEDGEMENTS: 



PR0F0RMA INCOME STATEMENT AND BALANCE SHEET 



BALSHT 
36075 



BALSHT provides a listing of a simple proforma income statement and balance 
sheet. 

Data can be entered either from the teletype as it becomes necessary, or 
internally with Data-Statements. Your choice on the above option will 
be asked as the first question. Then enter, (either as data beginning in 
line 9900, or with INPUT Statements) the following values: 

Bl = Base period sales total 

B2 = Base period net fixed assets 

B4 = Base period long-term debt remaining 

B5 = Base period total owners' equity 

B6 = Base period accumulated retained earnings 

52 = Federal corporate tax rate on profit 

53 = Promised period dividends 

Rl = Amount of cash the user wishes to hold after the base period 

R2 = Accounts/Receivable turnover 

R3 = Inventory turnover 

R6 = Accounts/Payable turnover (i.e., A/P as fraction of sales) 

Then enter the next 24 values, in 6 groups of 4 (for the next 4 periods); 

L(l,l thru 4) = Estimated percentage growth in sales for next 4 periods 

L(2,l thru 4) = Cost of goods sold as an estimated % of sales 

L(3,l thru 4) = General selling & administrative expense as an estimated 

% of sales 

L(4,l thru 4) = Estimated amount of fixed asset purchases 

L(5,l thru 4) = Estimated amount of fixed assets retired 

L(6,l thru 4) = Planned payments per quarter on debt 

Enter all percentages as decimals less than 1. 
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RUN 

RUN 
BALSHT 

* PROFORMA INCOME STATEMENT t BALANCE SHEET * 

THIS PROGRAM WILL PROVIDE A LISTING OF A SIMPLE PROFORMA INCOME STATE- 
MENT AND BALANCE SHEET. 

DO YOU WISH TO ENTER YOUR DATA FROM THE TELETYPE AS IT BECOMES 
NECESSARY* OR INTERNALLY WITH DATA-STATEMENTS? CENTER *T ' OR 'D')?T 

PLEASE ENTER THE FOLLOWING VALUES J 

WHAT IS THE BASE PERIOD'S TOTAL SALES750000 

WHAT IS THE NET FIXED ASSETS FOR THE BASE PER IOD7450000 

WHAT IS THE REMAINING LONG-TERM DEBT FOR THE BASE PERIOD735000 

WHAT IS THE TOTAL OWNER'S EQUITY FOR THE BASE PER IOD7800000 

WHAT ARE THE RETAINED EARNINGS FOR THE BASE PERIOD731000 

WHAT IS THE FEDERAL CORPORATE TAX RATE?. 48 

WHAT IS THE QUARTERLY PROJECTED AMOUNT OF DI VIDENDS?8000 

WHAT AMOUNT OF CASH WOULD YOU LIKE TO RETAIN FOR EACH QUARTER730000 

WHAT IS THE NORMAL ACCOUNTS/RECEIVABLE TURN0VER72.25 

WHAT IS THE NORMAL INVENTORY TURNOVER? 1 . 50 

WHAT PERCENTAGE OF SALES ARE THE ACCOUNTS/PAYABLE (I.E.* A/P TRNOVR)7.20 

NOW ENTER FOUR VALUES FOR EACH QUESTION. EACH VALUE APPLIES TO THE RES- 
PECTIVE QUARTER! 

ENTER THE ESTIMATED PERCENTAGE GROWTH IN SALES 
?.10 
??.10,.15,.20 

ENTER THE COST OF GOODS SOLD AS AN ESTIMATED PERCENTAGE OF SALES 
? .48, .49* .50, .51 

ENTER THE GENERAL SELLING I ADMINISTRATIVE EXPENSE AS A PERCENT OF SALES 
?. 10, .12*. 12*. 12 

ENTER THE ESTIMATED AMOUNT OF FIXED ASSET PURCHASES PER QUARTER 
72000* 5000* 5000, I 000 

ENTER THE ESTIMATED AMOUNT OF FIXED ASSET RETIREMENTS PER QUARTER 
71000,1000,1000,1000 

ENTER THE PLANNED DEBT PAYMENTS PER QUARTER 
725000, 25000, 25000, 25000N 
2500,2500,2500,2500 

DO YOU WISH A BALANCE SHEET ONLY (TYPE •| , >J AN INCOME STATEMENT ONLY 
(TYPE '2')J OR BOTH (TYPE '3')?3 

*** INCOME STATEMENT *** 

SALES 

COST OF GOODS SOLD 
GS AND A EXPENSES 
PROFIT BEFORE TAX 

FED. INCOME TAX 
PROFIT AFTER TAX 
ANNUAL DIVIDENDS 



QTR #1 


QTR #2 


QTR #3 


QTR #4 


55000* 


60500. 


69575. 


83490. 


26400 


29645 


34787.5 


42579.9 


5500 


7260 


8349 


10018*8 


23100 


23595 


26438.5 


30891 .3 


11088 


1 1325*6 


12690.5 


14827.8 


12012 


12269*4 


13748. 


160 63.5 


8000 


8000 


8000 


8000 
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*** 



BALANCE SHEET 



CASH 

ACCOUNTS RECEIVABLE 

INVENTORY 

TOTAL CURRENT ASSETS 

NET FIXED ASSETS 

TOTAL ASSETS 



ACCOUNTS PAYABLE 
ACCRUED TAXES 
TOTAL CURRENT LIAB. 

DEBT FINANCING 

EQUITY 

RETAINED EARNINGS • 

TOTAL LIABILITIES 



OTR #1 


OTR #2 


OTR #3 


QTR #4 


377489. 


370485* 


362 829* 


357852. 


24444*4 


26888*9 


30922*2 


37106.7 


36666*7 


40333*3 


46383*3 


55660. 


438600* 


437707. 


440135* 


450619* 


451000* 


455000* 


459000* 


459000. 


889600* 


892707. 


899135. 


909619. 


1 1000 


12100 


13915 


16698 


11088 


11325.6 


12690.5 


14827.8 


22088 


23425*6 


26605.5 


31525.8 


32500 


30000 


2 7500 


25000 


800000* 


800000* 


800000* 


800000* 


35012* 


39281*4 


45029*4 


53092*9 


889600* 


892707* 


899135. 


909619* 



+ + + + + + + + + * + + + ** + + + *** + + ** + + + + * + **** + + + + * + ** + * + + + * + + + 4, + * + + + *** + **** + + + * 

DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM ISA^lv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



BOND PRICE ANALYSIS 



BNDPRC 
36076 



BNDPRC computes the price and accrued interest for a bond, given its 
coupon, redemption price, yield, and maturity life. 



Self-explanatory 
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RUN 



RUN 
BNDPRC 

BOND PRICE 

SETTLEMENT DATE < MO*DAY>YR> ? 1 * 1 * 1 970 
MATURITY DATE (MO*DAY>YR> ?4# 1 > 1 987 
ANNUAL COUPON(X)?3.7 
DESIRED YIELD(*>?5.5 
TOTAL NUMBER OF BONDS?95 

************************************************************** 
THE PRICE OF THE BOND IS : $ 801.027 
THE ACCRUED INTEREST IS : S 9.25 
THE TOTAL BOND PRICE IS : $ 76976.3 

************************************************************** 

DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



BOND SWITCH ANALYSIS 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M -D AolL 

BNDSWH 
36077 



BNDSWH calculates the effect of a bond switch, and provides a sensitivity 
analysis on various input. 

In all output provided, there are three columns of data. This is for the 
purpose of comparison. The left-most column is for the results if the 
old bond is kept until the terminal date, and then sold. The middle column 
is for the results if the old bond is sold now, and the net revenue on its 
sale is immediately reinvested in the same bond. The last column is for 
the results if the old bond is sold now, and the net revenue on its sale is 
immediately reinvested on the new bond, which is held to the terminal date 
and then sold. 

The following input information is necessary: (This can be entered as 
data-statements beginning in line 9900, or directly with input-statements. 
The first question will ask you to indicate your choice of method.) 

Bl = book value of old bond 

PI = price of old bond 

CI = coupon on old bond 

M1,M3 = maturity on old bond in years, months 

Rl = proceeds on redemption of old bond 

Tl = tax rate on old bond interest payments 

P2 = price of new bond 

C2 = coupon on new bond 

M2,M4 = maturity on new bond in years, months 

R2 = proceeds on redemption of new bond 

T2 = tax rate on new bond interest payments 

S1,S2 = years, months to terminal date 

Y3 = predicted yield on old bond to terminal date 

Y4 = predicted yield on new bond to terminal date 

T3,T4 = capital loss rate now, capital gains rate now 

T5,T6 = capital loss rate at terminal date, capital gains rate then 

D3 = capital gains rate at maturity of old bond 

D4 = capital gains rate at maturity of new bond 

Y9 = after- tax reinvestment rate on coupons 



There is a storage problem with BNDSWH. If using input-statements, 
delete lines 9900-9998 and run. If using data-statements, delete 
lines 9024-9108 and run. 

Terminal data must be < 5 years hence. Otherwise change line 9074, and 
dimension of A in line"9114 to 2 * SI + S2/6 + 2. 

Increment on yield spread and yields must be such that no more than 10 
partitions are used. To increase, change line 9279 or line 9302 and 
make dimension of A in line 9114 (Z5-Z4)/76. 
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RUN 

GET-SBNDSH-WH 

RUN 

BNDSWH 

* BOND SWITCH * 

THIS PROGRAM CALCULATES THE EFFECT OF A BOND SWITCH. 

DO YOU WISH TO ENTER YOUR DATA FROM THE TELETYPE AS IT BECOMES NECES- 
SARY. OR INTERNALLY WITH DATA-STATEMENTS? (ENTER 'T • OR , D , )?T 

WHAT IS THE BOOK VALUE OF THE OLD BOND?90 
WHAT IS THE PRICE OF THE OLD BOND? 100 
COUPON ON OLD BOND? 5 

MATURITY ON OLD BOND IN YEARS* M0NTHS?3*6 
PROCEEDS ON REDEMPTION OF OLD BOND? 120 
TAX RATE ON OLD BOND INTEREST PAYMENTS?. 45 

WHAT IS THE PRICE OF THE NEW BOND?80 
COUPON ON NEW BOND? 7. 50 

MATURITY ON NEW BOND IN YEARS* MONTHS?5*0 
PROCEEDS ON REDEMPTION OF NEW BOND?ll5 
TAX RATE ON NEW BOND INTEREST PAYMENTS?. 45 

HOW MANY YEARS* MONTHS TO TERMINAL DATE?4*0 

PREDICTED YIELD ON OLD BOND TO TERMINAL DATE?. 25 

PREDICTED YIELD ON NEW BOND TO TERMINAL DATE?. 30 

CAPITAL LOSS RATE NOW* CAPITAL GAINS RATE NOW?. 15*. 33 

CAPITAL LOSS RATE AT TERMINATION DATE* CAPITAL GAINS RATE THEN?. 15*. 33 

CAPITAL GAIN RATE AT MATURITY OF OLD BOND?. 33 

CAPITAL GAIN RATE AT MATURITY OF NEW BOND?. 33 

AFTER TAX REINVESTMENT RATE ON COUPONS?. 055 



ENTER THE NUMBER OF THE SENSITIVITY TABLE YOU PREFERt 

•0' TO TERMINATE PROGRAM 

•I* FOR TERMINAL DATE SENSITIVITY 

•2* FOR YIELD SPREAD SENSITIVITY 

•3* FOR YIELDS SENSITIVITY 

•4* FOR NO TABLES* FINAL VALUES 
?1 



SENSITIVITY OF YIELD AND TERMINAL VALUE TO TERM. DATE IN YEARS HENCE. 



TERM. 


DATE 


YIELD TO TERMIK 


IAL DATE 




(IN YEARS) 












OLD BOND 


TAX SW. 


NEW BOND 


.5 




-52.39 


-54.36 


-76.03 


1 




-20.81 


-22.16 


-34.65 


1.5 




-8.7 


-9.76 


-17.82 


2 




-2.26 


-3.14 


-8.65 


2.5 




1 .18 


1*03 


-2.84 


3 




3.6 


3*44 


1 .22 


3.5 




5.41 


5.21 


4.15 


4 




6*84 


6.61 


6.05 


4.5 




8.02 


7.76 


7.61 


5 




9.01 


8.74 


8.92 


TERM. 


DATE 


TERMINAL VALUE 


IN DOLLARS. 




(IN YEARS) 












OLD BOND 


TAX SW. 


NEW BOND 


.5 




75.22 


74.22 


63.84 


1 




81.91 


80*69 


70.71 


1.5 




89.3 


87.84 


78.28 


2 




97.42 


95.74 


86*66 


2.5 




104*88 


104.48 


95.96 


3 




1 13.1 1 


1 1 2 . 62 


106.31 


3.5 




122.22 


121.43 


117.57 


4 




132*3 


131.19 


128-4 


4.5 




143.48 


142 


140.48 


5 




155.88 


154 


153.98 
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ENTER THE NUMBER OF THE SENSITIVITY TABLE YOU PREFER! 

*0' TO TERMINATE PROGRAM 

•l ' FOR TERMINAL DATE SENSITIVITY 

•2* FOR YIELD SPREAD SENSITIVITY 

•3* FOR YIELDS SENSITIVITY 

*4* FOR NO TABLES* FINAL VALUES 
?2 

****^**^^**^^0**^****^^^f *********************************************** 

ENTER THE RANGE OF SPREADS YOU WISH TO CONSIDER* (NEW BOND YIELD 

TO OLD BOND YIELD AT TERMINAL DATE). 

ENTER THE HIGH SPREAD IN BASIS PTS.* THE LOW SPREAD* * THE SENSITIVITY 

INCREMENT? -200* 200* 50 

SENSITIVITY OF YIELD AND TERMINAL VALUE TO SPREAD AT TERMINAL DATE. 
(OLD BOND YIELD HELD CONSTANT). 

SPREAD YIELD TO TERMINAL DATE 
(IN BASIS PTS.) 





OLD BOND 


TAX SW. 


NEW BOND 


-200 


6*84 


6*61 


7.06 


-150 


6*84 


6*61 


6.98 


-100 


6*84 


6*61 


6.91 


-50 


6*84 


6*61 


6.84 





6*84 


6*61 


6.77 


50 


6*84 


6*61 


6.69 


100 


6*84 


6*61 


6.62 


150 


6*84 


6*61 


6.55 


200 


6*84 


6*61 


6.48 


SPREAD 


TERMINAL VALUE 


IN DOLLARS* 




(IN BASIS 


PTS.) 








OLD BOND 


TAX SW. 


NEW BOND 


-200 


132^3 


131.19 


132.99 


-150 


132.3 


131.19 


132.65 


-100 


132.3 


131.19 


132.31 


-50 


132.3 


131.19 


131.97 





132*3 


131.19 


131.64 


50 


132*3 


131.19 


131.3 


100 


132*3 


131.19 


130.97 


150 


132*3 


131 .19 


130*64 


200 


132*3 


131 .19 


130.32 



ENTER THE NUMBER OF THE SENSITIVITY TABLE YOU PREFER! 

•0* TO TERMINATE PROGRAM 

•1 ' FOR TERMINAL DATE SENSITIVITY 

•2* FOR YIELD SPREAD SENSITIVITY 

•3' FOR YIELDS SENSITIVITY 

•4* FOR NO TABLES* FINAL VALUES 
?3 

it^^*^********************************************************** ********* 

ENTER THE RANGE OF OLD BOND YIELDS AT TERMINAL DATE 
INPUT HIGH YIELD* LOW YIELD* AND INCREMENT DESIRED?. 35 
??.20*.025 

SENSITIVITY OF YIELD AND TERMINAL VALUES TO YIELD AT TERMINAL DATE. 
(SPREAD HELD CONSTANT). 



YIELD 


YIELD TO 


TERMINAL 


DATE 




(OLD BOND) 












OLD BOND 


TAX SW. 


NEW BOND 


• 2 


6.43 




6.2 


6.77 


• 225 


6.64 




6*41 


6.41 


• 25 


6*84 




6.61 


6.05 


.275 


7.05 




6*81 


5.71 


• 3 


7.26 




7.01 


5.37 


• 325 


7.46 




7.21 


5.04 


.35 


7.66 




7.41 


4.71 
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YIELD 



TERMINAL VALUE IN DOLLARS. 



OLD BOND) 










OLD BOND 


TAX SW. 


NEW BOND 


.2 


130.29 


129.24 


131.64 


.225 


131.3 


130.22 


129.99 


.25 


132.3 


131.19 


128.4 


.275 


133.31 


132*16 


126.86 


• 3 


134*31 


133*13 


125.37 


.325 


135.32 


134.1 


123.92 


• 35 


136.32 


135.08 


122.52 



ENTER THE NUMBER OF THE SENSITIVITY TABLE YOU PREFER! 

•0" TO TERMINATE PROGRAM 

•1 • FOR TERMINAL DATE SENSITIVITY 

•2* FOR YIELD SPREAD SENSITIVITY 

•3* FOR YIELDS SENSITIVITY 

*4* FOR NO TABLES* FINAL VALUES 
?4 

************************************************************************ 



YIELD TO SALE DATE A/T IF OLD BOND KEPT: 6.843 

YIELD TO SALE DATE A/T ON TAX SWITCH! 6*61 

YIELD TO SALE DATE A/T ON SWITCH TO NEW BOND! 6.052 



TERMINAL VALUE IF OLD BOND KEPTt $ 263.28 
TERMINAL VALUE OF TAX SWITCH * S 131.19 
TERMINAL VALUE OF SWITCH TO NEW BONDt $ 128.4 



ENTER THE NUMBER OF THE SENSITIVITY TABLE YOU PREFER* 

•0 f TO TERMINATE PROGRAM 

•1 * FOR TERMINAL DATE SENSITIVITY 

•2* FOR YIELD SPREAD SENSITIVITY 

•3' FOR YIELDS SENSITIVITY 

•4* FOR NO TABLES* FINAL VALUES 
?0 

************************************************************************ 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM JDildlv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



BOND YIELD ANALYSIS 



BNDYLD 
36078 



BNDYLD computes after- tax yield to maturity of a bond, given its coupon, 
redemption price, maturity life, price, and the tax rates applied to 
interest and capital gains. 



The user has the option to enter the input either with the teletype, or 
with data-statements. 

If the user chooses to use the data-statement option, he should enter the 
following data beginning at line 9900: 

C = amount in dollars of the annual coupon 

R = redemption price 

Ml, M2 = maturity life (Ml = years, M2 = months) 

P = price 

Tl = tax rate applied to interest 

T2 = tax rate applied to capital gains 



This program uses the Fisher Algorithm for determining the exact rate 
of return. 



BNDYLD, page 2 



RUN 

RUN 
BNDYLD 

BOND YIELD 

SETTLEMENT DATE CMO*DAY*YR> ? 1 » 1 * 1970 
MATURITY DATE CMO,DAY#YR> ?8* 1 » 1 993 
ANNUAL COUPON <Z>?4.1 
BOND PRICE 781.621946 

************************************************************** 
THE BOND YIELD IS : 5.50025 % 

*************************************************************** 

DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM ISA^lv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



BANK RESERVE CALCULATIONS 



BNKRSV 
36079 



BNKRSV calculates the required bank reserve, and the reserve position 
at the close of a given bank's business day. 



Enter all values in dollars. 

BNKRSV will require a number of input values. There is no data to enter 
as data-statements. 

For a user familiar with the program, the following changes could be made 
to expedite the input routine: 

9047 READ C,D,E,F,G,H,H1 

9048 GOTO 9130 

9201 READ J,J1,J2,K8,K1,K,L,M,N,0,P,P9 
9203 GOTO 9340 

and at 9900 enter the data for the above values. 

The names of the above variables can easily be seen from the listing of 
BNKRSV from line 9060 to 9125 and 9215 to 9335. 
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RUN 

RUN 

BNKRSV 

* BANK RESERVE CALCULATIONS * 

THIS PROGRAM CALCULATES THE REQUIRED BANK RESERVE* AND THE RESERVE 
POSITION AT THE CLOSE OF A GIVEN BANK'S BUSINESS DAY* 

PLEASE ENTER THE FOLLOWING BALANCES AT THE CLOSE OF BUSINESS YESTERDAY: 

DEMAND DEPOSITS OF BANKS? 15000 

U.S. GOVERNMENT OEMAND DEPOSITS? 1 02000 

OTHER DEMAND DEPOS ITS?41 2000 

CASH ITEMS IN PROCESS? 1 I 500 

DEMAND DEPOSITS DUE FROM BANKS? 18500 

TIME DEPOS ITS? 10500 

CURRENCY AND CO IN? 9500 

+++ + * + * + *** + ** + + + + *+***+** + * + * + *■* + * + *+* + **+*■** + + ***** + *****+* + **** + + * 

THE REQUIRED RESERVE IS EQUAL TO $ 50695* 
WOULD YOU LIKE TO CALCULATE THE STATEMENT OF RESERVE POSIT ION? YES 

PLEASE ENTER THE FOLLOWING AMOUNTS! 

FEDERAL RESERVE BANK BALANCE YESTERDAY? 65000 

NUMBER OF DAYS REMAINING IN THE PERI0D721 

CUMULATIVE EXCESS OR DEFICIENCY!- ) AS OF YESTERDAY? 32000 

FEDERAL FUNDS RATE (IN DECIMALS )?* 1 1 5 

COLLECTED FLOAT TO BE CREDITED TODAY?11000 

CASH LETTER72150 

SECURITIES COLLECTED OR PURCHASED <-> BY THE FED795000 

CASH SHIPPED OR ORDERED (-)?30000 

TRANSFERS IN OR OUT (-)?-! 2000 

TREASURY TAX & LOAN CHARGE? 1 50000- 

OTHER CREDITS OR DEBITS (- )?9000 

FUTURE TRANSACTIONS -CREDITS OR DEBITS (- )?-6500 



*** STATEMENT OF RESERVE POSITION *** 
21 DAYS REMAINING IN RESERVE PERIOD 



RESERVE BALANCE AT THE CLOSE YESTERDAY 
ADD COLLECTED FLOAT TO BE CREDITED TODAY 




65000* 
1 1000 


SUBTOTAL 
LESS CASH LETTER 




76000* 
2150 


SUBTOTAL 




73850. 


SECURITIES COLLECTED OR PURCHASED(-) 
CASH SHIPPED OR ORDERED (-) 
TRANSFERS IN OR OUT(-) 
TREASURY TAX * LOAN CHARGE 
OTHER CREDITS OR DEBITS (-) 


95000* 

30000 

-12000 

-15000 

9000 


107000. 


ESTIMATED RESERVE BALANCE AT CLOSE TODAY 
LESS REQUIRED RESERVE 




180850* 
50695. 


INDICATED RESERVE EXCESS OR DEFICIENCY 
PRIOR CUMULATIVE EXCESS OR DEFICIENCY 




130155. 
32000 


CUMMULATIVE EXCESS OR DEFICIENCY TO DATE 




162155. 


CUM EXCESS OR DEF AFTER FUTURE TRANSACTIONS 




155655. 


AVRG FOR DAYS REMAINING 


CUMULAT I VE 
POSITION 

298658* 
298082* 
297506* 


7412*14 


LEVEL OF REQUIRED EXCESS OR 
DEMAND DEP RESERVE DEFICIENCY 


FED FUNDS 
VALUE 


476100* 44347. 136503. 
480900* 44923* 135927* 
485700. 45499. 135351. 


95405* 
95221 . 
95037. 



BNKRSV, page 3 



490500. 
49S300. 
500100* 
504900* 
509700* 
514500* 
519300* 
524100* 
528900* 
533 700. 
538500. 
543300* 
548100* 
552900. 
557700. 
562500* 
567300. 
572100. 
576900. 
581700. 
******** 



46075. 
46651* 
47227. 
47803. 
48379. 
48955. 
49531 * 
50107. 
50683* 
51259. 
51835. 
52411 • 
52987. 
53563* 
54139. 
54715* 
55291* 
55867. 
56443* 
57019* 
*************** 



134775* 
134199. 
133623* 
133047. 
132471 . 
131895. 
131319* 
130743* 
130167. 
129591 * 
129015. 
128439. 
127863* 
127287. 
126711. 
126135. 
125559. 
124983. 
124407* 

123831 * 

***************** 



296930* 
296354. 
295778. 
295202* 
294626* 
294050* 
293474. 
292898* 
292322* 
291746* 
291 170. 
290594. 
290018. 
289442. 
288866* 
288290* 
287714* 
287138* 
286562* 
285986. 
*************** 



94853* 
94669. 
94485. 
94301 * 
941 1 7. 
93933* 
93749* 
93565* 
93381 * 
93197. 
93013* 
92829* 
92645* 
92461 . 
92277. 
92093* 
91909* 
91725* 
91541 . 
91357. 
************* 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM XjAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



DEPARTMENTAL MANAGER'S BUDGETING PROGRAM 



BUDGET 
36073 



This program asks for projected controllable expenses for a six month per- 
iod and produces an itemized budget summary table of all expenses for that 
period. Uncontrollable costs such as overhead, taxes and depreciation are 
calculated by the program and automatically included in this summary so 
that the user need only be concerned with controllable costs. The itemized 
budget summary is stored in a file as well as being printed so the data is 
easily available for additional processing as needed. 

The projected controllable expenses that BUDGET requests are listed below: 



Salaries 

Printing and Reproduction 

Operating Supplies 

Equipment Costs 

Demo and Loan Expense 



Travel Expense 
Means and Lodging 
Other Expense 
Advertising and Promotion 



When all controllable expenses have been typed-in, BUDGET immediately begins 
printing the itemized budget summary. When this has been done, the program 
halts. BUDGET simplifies the budgeting task faced at least bi-annually by 
every department manager. It has two primary benefits: 

. It permits the manager to concentrate on controllable costs only; the 
program takes care of all uncontrollable expenses. 

. The manager can use the program to explore an entire series of alternate 
budgets when faced with cutting the total expense. Since the more labor- 
ious calculations are performed by the program, the manager is free to 
explore alternatives. 

Load the Program. 
Establish a File. 

The BUDGET program uses one file which must be established before the pro- 
gram is run. Set up the file by typing the command below: 

0PE-BFILE,6 

Opening this file, simply allocates 

places data on file. 

RUN 

Information Needed by Budget (Gene 

. Date 

. Location Code 

. Personnel Count 

. Salaries 

. Transfers in and out 

. % Salary increase in July 

. Printing & Reproduction 

Information Calculated by^, Budget 

. Total for each controllable e 

. Total operating Expense 

. Total controllable Expense 

. Payroll Taxes 

. Depreciation 

. Occupancy Costs 



storage. The BUDGET program itself 



ral) 

. Operating Supplies 

. Equipment Costs 

. Demo & Loan Expense 

. Travel Expense 

. Meals & Lodging 

. Other Expense 

. Advertising and Promotion 

xpense item 

. Freight Out 

. Overhead charges 

. Training Sold 

. Total Location (overall) Expense 

. Total Personnel Count 



Information Saved by Budget 

Budget places all the information found in the summary printout in a file, 
Each time the program is run, the old data is erased and replaced with 
the newly calculated data. 
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TITLE: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



DEPARTMENTAL MANAGER'S BUDGETING PROGRAM (cont.) 



Message 

NON-EXISTENT FILE 
REQUESTED 

MISSING OR PROTECTED 
FILE 

READ ONLY FILE 



END OF FILE/ 
END OF RECORD 



BAD INPUT, 

RETYPE FROM ITEM 1 

EXTRA INPUT, 
WARNING ONLY 



Response/Explanation 
OPEN FILE 

OPEN FILE 

Another system user has already gotten BUDGET 
and has priority access to the file. He must 
SCRATCH-BUDGET before you can write on the file. 

FILE NOT LARGE ENOUGH. Type the commands below; 
then restart BUDGET from beginning. 

KIL-BFILE 
0PE-BFILE.6 

Data is of wrong type (letters instead of 
numbers). Retype correctly. 

Non-numeric characters (e.g. '$', ',') were 
typed when only numbers were expected. Program 
does the best it can. Check budget summary to 
see particular value. May be necessary to 
re- run entire program. 
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RUN 

GET-BUDGET 

RUN 

BUDGET 



HEWLETT-PACKARD 
DEPARTMENTAL BUDGET PROGRAM 
TODAY'S DATE?NOVEMBER 12* 1970 
LOCATION C0DE76733-89 
TYPE PERSONNEL COUNT BY MONTH 
?4 
?4 
?5 
?5 
?7 
?8 

TYPE 4 
7 490 
7610 
7900 
?950 
TYPE 1 
7 1000 
TYPE 2 
?800 
7750 
TYPE 1 
7550 
WHAT % 
WHAT X 



SALARIES FOR MAY 



SALARIES FOR MONTH 3 



SALARIES FOR MONTH 5 



SALARIES FOR MONTH 6 



S HIRES (MINUS FOR LOSSES) 



S HIRES (MINUS FOR LOSSES) 



•S HIRES (MINUS FOR LOSSES) 



SALARY INCREASE IN JULY (NORMAL IS 5.0)7 5 
SALARY INCREASE IN OCTOBER (NORMAL IS 2*0)72 

TRANSFERS IN 

70 

70 

70 

70 

70 

70 

TRANSFERS OUT 

70 

70 

70 

70 

70 

70 

PRINTING * REPRODUCTION 

7 1000 

7800 

72300 

70 

7910 

7 1190 

OPERATING SUPPLIES 

7250 

7 104 

7125 

7200 

7245 

7180 

EQUIPMENT COSTS 

7 1500 

7 1400 

74500 

7950 

7 3300 

72400 

DEMO * LOAN EXPENSE 

7 450 

7 300 

7225 

7580 

7125 

7350 

TRAVEL EXPENSE 

7560 

7 400 

7350 

7 605 
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7 160 

?350 

MEALS & LODGING 

7360 

?400 

7250 

7300 

7150 

7280 

OTHER EXPENSE 

7105 

7200 

750 

7390 

70 

7125 

ADVERTISING & PROMOTION 

70 

71300 

7 1090 

7 1100 

7 500 

70 



NOVEMBER 12, 1970 

6733-89 

LOCATION TARGET 

SALARIES 



MAY JUN JUL AUG SEP OCT TOTAL 
2950 2950 4097 4097 5647 6256 25997 



PLUS TRANSFERS IN 

























LESS TRANSFERS OUT 

























NET SALARIES 




2950 


2950 


4097 


4097 


5647 


6256 


25997 


PRINTING * REPRO 




1000 


800 


2300 





910 


1 190 


6200 


OPERATING SUPPLIES 




250 


104 


125 


200 


245 


180 


1104 


EQUIPMENT COSTS 




1500 


1400 


4500 


950 


3300 


2400 


14050 


DEMO * LOAN COSTS 




450 


300 


225 


580 


125 


350 


2030 


TRAVEL EXPENSE 




560 


400 


350 


605 


160 


350 


2425 


MEALS & LODGING 




360 


400 


250 


300 


150 


280 


1740 


OTHER EXPENSE 




105 


200 


50 


390 





125 


870 


TOTAL OPERATING EXPENSE 


7175 


6554 


11897 


7122 


10537 


11131 


54416 


ADVERTISING & PROMOTION 





1300 


1090 


1100 


500 





3990 


TOTAL CONTROLLABLE 


EXP 


7175 


7854 


12987 


8222 


1 1037 


11131 


58406 


PAYROLL TAXES 




333 


248 


307 


254 


313 


327 


1782 


DEPRECIATION 

























OCCUPANCY COSTS 




320 


320 


400 


400 


560 


640 


2640 


FREIGHT OUT 

























OVERHEAD CHARGES 

























TRAINING SOLD 

























TOTAL LOCATION EXPENSE 


7828 


8422 


13694 


8876 


11910 


12098 


62828 


PERSONNEL COUNT 




4 


4 


5 


5 


7 


8 


33 



DONE 



bUSINtSS AND MANUF-ACIURING APPLICATIONS (700) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM UA^lv 
CAPITAL INVESTMENT ANALYSIS (DISCOUNTED CASH FLOW METHOD) 



CAPDCF 
36825 



CAPDCF is a general purpose program intended to aid the financial manager 
in the evaluation of capital investment alternatives. Cash flows are 
determined and the rate of return is calculated using discounted cash flow 
analysis. An iterative technique is used to determine the rate of return 
rather than the trial and error technique. 



The program can be run either interactively or from a set of data entered 
before running the program. The user inputs basic data concerning the 
investment and the associated cash flows. This includes such information 
as investment amount, tax rate, etc. Also the user enters information re- 
garding the cash flows (referred to as earnings and expenses in the pro- 
gram). The user can enter normal and/or extraordinary cash flows. He can 
enter the specific cash flows or he can characterize them such as "rapid 
decline in early years", "straight line decline", etc. Depreciation infor- 
mation is also entered by the user. 

Program Input 

Input to the program whether it is from data statements or conversationally 

is the same information. An asterisk (*) indicates required information. 

Basic Data 



II 
CI 
SI 
LI 
Tl 



* Investment Amount 

* Investment Tax Credit 

* Salvage Value 

* Length of Life of Investment 

* Income Tax Rate 

Normal Earnings Data 
Where 

1 - Each is entered 

2 - Uniform earnings 

3 - Straight line decline 

4 - Rapid decline in early years 

5 - Rapid decline in later years 

If earnings option = 1, earnings are entered for each period 
option = 2 thru 5, enter the following: 

Earnings Life in Periods E2 

Initial Earnings E3 

% of Initial Earning to be Final E4 

Extra Earnings Data 

* Extra Earnings Option E5 
Where 

1 - Extra earnings exist 
- No extra earnings 
If option = 1, the following 

Number of Extra Earnings E6 

For 1 to E6 

Period, Earnings E7, A(E7) 

(continued on next page) 



If earnings 



Ray McCarthy 

HP/Automatic Measurements Division 
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Instructions : (Cont'd.) 
Normal Expense Data 

* Expense Option XI 
Where 

1 - Each is entered 

2 - Uniform expenses 

3 - Straight line decline 

4 - Rapid decline in early years 

5 - Rapid decline in later years 

- No normal expenses 

If expense option = 1, expenses for each period are entered. If expense option = 2 thru 5 enter the 
following: 

Expense Life in Periods X2 

Initial Expense X3 

% of Initial Expense to be Final X4 

Extra Expense Data 

* Extra Expense Option X5 
Where 

1 - Extra expenses exist 

2 - No extra expenses 

If option = 1, the following: 

Number of Extra Expenses X6 

For 1 to X6 

Period, Expense in Period X7, Y(X7) 

Depreciation Data 

* Depreciation Option Dl 
Where 

1 - Each is entered 

2 - Straight line 

3 - Declining balance 

4 - Sum of years digits 

If depreciation option = 1, depreciation amounts for each period are entered. If depreciation option = 2 
thru 4, enter the following: 

Percent of Investment Not to be Depreciated D2 
Number of Years to be Depreciate D3 

SAMPLE INVESTMENT TO BE ANALYZED 

A $350,000 numerically controlled machine tool purchase is to be evaluated. The following is assumed: 

1% investment tax credit 

50% income tax rate 

12 year depreciation period using the sum of the years digits' method 

$100 per hour gross income when working 

40% machine utilization 

Two shift operation, 6 days a week, 48 weeks a year 

$6 per hour operator cost including fringe benefits 

$250 per day for overhead (space maintenance, programming support, and tooling expense) 

$25,000 major overhaul required every five years 

$35,000 salvage value 

Preliminary Calculations: 

Estimated annual machine tool utilization: 

16 hrs/day 

x A utilization 

6.4 hrs/day 

_x 6 days/week 

38.4 hrs/week 

x 48 weeks/yr 

TPT hrs/year 
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Instructions : (Cont.) 

Estimated annual gross income: 

1843 hrs/yr 
x $100 per hour 

$184,320 



Estimated annual operating expenses: 

16 operator hrs/day 

x 6 days/week 

96 hrs/week 

x $6 operator cost/hour 



$576 per week 
x 48 weeks/yr 

$27,648 per year 

+72,000 overhead/yr ($250/day x 6 days x 48 weeks) 

$99,648 normal annual operating expense 

Investment tax credit 
$350,000 purchase price 
x .07 investment credit % 
$24,500 

Extraordinary Expenses 

YR 5 & 10 - $25,000 (overhaul) 

Extraordinary Earnings 
YR 12 - $35,000 (salvage value) 

Depreciation 
Sum of the years digit method 

Included in this documentation are sample RUNs illustrating use of the program both by (1) enter- 
ing DATA statements, and (2) entering data conversationally. 

Change Option : Upon completion of a run, the user may optionally change some of the data from the 
previous run. This facility simplifies re-runs. A sample RUN illustrating this feature is also 
included. 

Data Statement Format 

nnn DATA II, CI, SI, LI, Tl 
nnn DATA El, E2, E3, E4 

or 

nnn DATA 1, E(l), E(2) E(L1) 

nnn DATA 1, E6, E7 (1) , A(E7)( 2 ), A(E7) ....E7 (e6 j, A(E7) 

or 
nnn DATA 
nnn DATA XI, X2, X3, X4 

or 

nnn DATA 1, X(l), X(2) X(L1) 

nnn DATA 1, X6, X7, 1)9 Y(X7), X7 (2) , Y(X7) .... X7 (x6) ,Y(X7) 

or 
nnn DATA 
nnn DATA Dl , D2, D3 

or 
nnn DATA 1, D(l), D(2), .... D(L1) 
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Instructions : (Cont'd) 

Calculations Formulas 

Earnings 
F = Final Earnings = (.01 E4) E3 

Uniform 
e p = E3, N = 1, ..... LI 

Straight Line 

e n = E3 - (n-1) (E3-F) , n = 1 , . . . E2 
n (E2-1) 

Rapid Decline in Early Years 

e 1 - E3 

e = e } - 2(E2-n+l) (E3-F) . n>2, . 
n n i E2 (E2-1) 

Rapid Decline in Later Years 
e 1 = E3 

e = e n - 1 - 2(N-1) (E3-F) , n=2, ...,E2 
n n E2 (E2-1) 

Expenses 
F = Final Expenses = (.01 x 4) x 3 

Uniform 

X = X3, N = 1, ... LI 

n 

Straight Line 

X n - X3 - (N-1) (X3-f) , n = 1, ... X2 
n (X2-1) 

Rapid Decline in Early Years 



E2 



X 1 = X3 



X2 



X n = X 9 . - 2(X2-n+l) (X3-F) , n=2, . 
n c ~ x X2 (X2-1) " 

Rapid Decline in Later Years 

X ] = X3 

X n = X n . - 2(n-l) (X3-F) , n=2, ...11 
n n - ] X2(X2-1) ; 

Depreciation 
D = Depreciable Investment = (Il-Cl) (1- .01D2) 

Straight Line 

d = D , n = 1, D3 

n T3 

Double Declining Balance 



d n = 2D 
n D3 



n = 1 D3 



D = D-d n 

Sum of the Years Digits 

d- = 2D (D3-n+1) , n=l , D3 

n D3(b3+1) 

NOTES : DATA statements numbers may be any number between 1 and 999. The time period used in the program 
must be consistent throughout. The product life length and cash flow inputs must be the same. 
The program converts to annual for return calculations. 
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RUN 

10 DATA 350000. * 24500 *35000 . * 12*50 

20 DATA 2*0* 184320. *0 

30 DATA 1*1*12*35000. 

40 DT-ATA 2*0*99648. *0 

50 DATA 1*2*5*25000*10*25000 

60 DATA 4*0* 12 

RUN 
CAPDCF 

CAPITAL INVESTMENT ANALYSIS 

ENTER TIME PERIOD TO BE USED FOR CASH FLOWS AND LIFE: 
(l)ANNIJAL* (2)SEMI-ANNUAL* ( 3 ) QUARTERLY* (4)M0NTHLY?1 

IS INPUT FROM (l)DATA STATEMENTS OR (2 >CONVERSAT IONALLY? 1 



RETURN ON INVESTMENT IS 



13.9504 PERCENT (ANNUAL) 



DO YOU WISH A COMPLETE REP0RT7Y 



CAPITAL INVESTMENT ANALYSIS 



INVESTMENT COST 350000 

INVESTMENT TAX CREDIT 24500 
NET INVESTMENT COST 325500 



SALVAGE VALUE 35000 

LIFE OF INVESTMENT 12 YEARS 

INCOME TAX RATE 50.00 PERCENT 



PERIOD 



• NORMAL 
EARNINGS 



EXTRA 
EARNINGS 



NORMAL 
EXPENSES 



EXTRA 
EXPENSES 



BEFORE TAX 
CASH FLOW 



1 


184320 





9964 8 





84672 


2 


184320 





99648 





84 672 


3 


184320 





99648 





84 672 


4 


184320 





99648 





84672 


5 


184320 





99648 


25000 


59672 


6 


184320 





99648 





84 6 72 


7 


184320 





99648 





84672 


8 


184320 





99648 





84672 


9 


184320 





99648 





84672 


10 


184320 





99648 


25000 


59672 


1 1 


184320 





99648 





84672 


12 


184320 


35000 


99648 





1 19672 
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PERIOD 



DEPRECIATION 



TAXABLE 
INCOME 



INCOME 
TAX 



AFTER TAX 
CASH FLOW 



DISCOUNTED 
CASH FLOW 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 



48462 


36210 


18105 


66567 


5 84 1 7 


44423 


40249 


20124 


64548 


49710 


40385 


44287 


22144 


62528 


42260 


36346 


48326 


24 1 63 


60509 


35889 


32308 


27364 


13682 


45990 


23938 


28269 


56403 


2 820 1 


56471 


25795 


24231 


60441 


3022 1 


54451 


2 1 82 7 


20 192 


644 80 


32240 


52432 


18445 


16154 


68518 


34259 


50413 


15563 


12115 


47557 


23778 


35894 


9724 


8077 


76595 


38298 


46374 


1 1026 


4038 


1 15634 


5781 7 


61855 


12906 



TOTAL DISCOUNTED CASH FLOW 325500 

INITIAL INVESTMENT 325500 

NET PRESENT VALUE OF INVESTMENT 



DO YOU WISH TO (l)QUIT, <2)ENTER NEW SET OF DATA, OR (3)CHANGE CURRENT 
? 1 

DONE 



RUN 
CAPDCF 

CAPITAL INVESTMENT ANALYSIS 

ENTER TIME PERIOD TO BE USED FOR CASH FLOWS AND LIFE: 
( 1 >ANNUAL, (2)SEMI-ANNUAL, ( 3 ) QUARTERLY, (4)M0NTHLY?1 

IS INPUT FROM (l)DATA STATEMENTS OR (2 >CONVERSAT I0NALLY72 

INVESTMENT AMOUNT? 350000 
INVESTMENT TAX CREDIT AM0UNT724500 
SALVAGE VALUE735000 
LIFE OF INVESTMENT? 12 
INCOME TAX RATE? 50 

EARNINGS OPTIONS: 

1 -EARNINGS FOR EACH PERIOD ARE ENTERED 
2-UNIFORM EARNINGS 
3-STRAIGHT LINE DECLINE 
4-RAPID DECLINE IN EARLY YEARS 
5-RAPID DECLINE IN LATER YEARS 
6-EXIT 

WHICH 0PTI0N72 

ENTER SINGLE EARNING AMOUNT? 1 84320 

ANY EXTRAORDINARY EARNINGS7YES 

ENTER THE NUMBER OF EXTRAORDINARY EARNINGS? 1 
FOR EACH EARNING, ENTER PERIOD # AND AMOUNT 
EARNING # 1 712,35000 



ANY NORMAL EXPENSES7YES 

EXPENSE OPTIONS: 

1 -EXPENSES FOR EACH PERIOD ARE ENTERED 
2-UNIFORM EXPENSES 
3-STRAIGHT LINE DECLINE 
4-RAPID DECLINE IN EARLY YEARS 
5-RAPID DECLINE IN LATER YEARS 
6-EXIT 
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WHICH 0PTI0N72 

ENTER UNIFORM EXPENSE AM0UNT799648 

ANY EXTRAORDINARY EXPENSES7YES 

ENTER THE NUMBER OF EXTRAORDINARY EXPENSES72 

FOR EACH EXPENSE* ENTER PERIOD # AND AMOUNT 

EXPENSE # I 75*25000 

EXPENSE # 2 710*25000 

DEPRECIATION OPTIONS; 
1-EACH IS ENTERED 
2-STRAIGHT LINE 
3-DECLINING BALANCE 
4-SUM OF YEARS DIGITS 
5-EXIT 

WHICH 0PTI0N74 

ENTER X OF INVESTMENT NOT TO BE DEPREC IATED70 

ENTER NUMBER OF YEARS TO DEPREC I ATE? 1 2 



RETURN ON INVESTMENT IS 13.9504 PERCENT (ANNUAL) 

DO YOU WISH A COMPLETE REP0RT7N0 

DO YOU WISH TO (l)QUIT* (2)ENTER NEW SET OF DATA* OR (3) CHANGE CURRENT 
7 1 

DONE 



10 DATA 350000. *24500*35000 . * 12*50 

20 DATA 2*0* 184320. *0 

30 DATA 1*1*12*35000. 

40 DATA 4* 12*200000.* 10 

50 DATA 1*2*5*25000*10*25000 

60 DATA 4*0*12 



RUN 
CAPDCF 

CAPITAL INVESTMENT ANALYSIS 

ENTER TIME PERIOD TO BE USED FOR CASH FLOWS AND LIFE: 
(l)ANNUAL* (2 /SEMI-ANNUAL* (3 /QUARTERLY* (4 /MONTHLY? 1 

IS INPUT FROM (l)DATA STATEMENTS OR (2 >CONVERSAT IONALLY? 1 



RETURN ON INVESTMENT IS 12.2004 PERCENT (ANNUAL) 



DO YOU WISH A COMPLETE REP0RT7Y 



CAPITAL INVESTMENT ANALYSIS 

INVESTMENT COST 350000 SALVAGE VALUE 35000 

INVESTMENT TAX CREDIT 24500 LIFE OF INVESTMENT 12 YEARS 

NET INVESTMENT COST 325500 INCOME TAX RATE 50.00 PERCENT 
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PERIOD 



NORMAL 
EARNINGS 



EXTRA 
EARNINGS 



NORMAL 
EXPENSES 



EXTRA 
EXPENSES 



BEFORE TAX 
CASH FLOW 



1 


184320 





200000 





-15680 


2 


184320 





1 70000 





14320 


3 


184320 





142727 





41593 


4 


1 84320 





1 18182 





66138 


5 


184320 





96364 


25000 


62956 


6 


184320 





772 73 





107047 


7 


184320 





60909 





12341 1 


8 


184320 





4 72 73 





13 704 7 


9 


184320 





36364 





147956 


10 


184320 





28182 


25000 


131 138 


1 1 


184320 





22 72 7 





161593 


12 


184320 


35000 


20000 





199320 



PERIOD 



DEPRECIATION 



TAXABLE 
INCOME 



INCOME 
TAX 



AFTER TAX 
CASH FLOW 



DISCOUNTED 
CASH FLOW 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 



48462 


-64142 


-32071 


16391 


14608 


44423 


-30103 


-15052 


2 93 72 


23331 


40385 


1208 


604 


40989 


29019 


36346 


29792 


14896 


51242 


32333 


32308 


30649 


15324 


4 7632 


26787 


28269 


78778 


3 93 89 


67658 


33912 


2423 1 


99180 


49590 


73 82 1 


32978 


20192 


1 16855 


58427 


78620 


3 1 302 


16154 


13 1802 


65901 


82055 


291 18 


12115 


1 19023 


5951 1 


71627 


22653 


8077 


153516 


76 75 8 


84 83 5 


23913 


4038 


195282 


9764 1 


101679 


25545 



TOTAL DISCOUNTED CASH FLOW 325500 

INITIAL INVESTMENT 325500 

NET PRESENT VALUE OF INVESTMENT 



DO YOU WISH TO (l)QUIT* <2>ENTER NEW SET OF DATA, OR (3)CHANGE CURRENT 

?3 

CHANGE OPTIONS: 

1 -BASIC DATA 

2-EARNINGS DATA 

3 -EXPENSE DATA 

4-DEPRECIATION DATA 

5-EXIT 
WHICH CHANGE 0PTI0N73 

CHANGE EXPENSE 0PTI0NS7Y 
EXPENSE OPTIONS: 

1 -EXPENSES FOR EACH PERIOD ARE ENTERED 

2-UNIFORM EXPENSES 

3-STRAIGHT LINE DECLINE 

4-RAPID DECLINE IN EARLY YEARS 

5 -RAP ID DECLINE IN LATER YEARS 

6-EXIT 



WHICH 0PTI0N75 

ENTER EXPENSE LIFE IN YEARS? 12 

INITIAL EXPENSE7200000 

ENTER X OF INITIAL EXPENSE TO BE FINAL VALUE? 10 

CHANGE EXTRAORDINARY EXPENSES7N 
ANY MORE CHANGES7N 
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RETURN ON INVESTMENT IS 



3.8019 PERCENT (ANNUAL) 



DO YOU WISH A COMPLETE REPORT? Y 



CAPITAL INVESTMENT ANALYSIS 



INVESTMENT COST 350000 

INVESTMENT TAX CREDIT 24500 
NET INVESTMENT COST 325500 



SALVAGE VALUE 3 5000 

LIFE OF INVESTMENT 12 YEARS 

INCOME TAX RATE 50.00 PERCENT 



PERIOD 



NORMAL 
EARNINGS 



EXTRA 
EARNINGS 



NORMAL 
EXPENSES 



EXTRA 
EXPENSES 



BEFORE TAX 
CASH FLOW 



1 


184320 





200000 





-15680 


2 


184320 





197273 





-12953 


3 


184320 





191818 





-7498 


4 


184320 





183636 





6 84 


5 


184320 





172 72 7 


25000 


-13407 


6 


1 84320 





159091 





25229 


7 


184320 





142 72 7 





41593 


8 


18432a 





123636 





60684 


9 


184320 





101818 





82502 


10 


184320 





772 73 


25000 


82 04 7 


1 1 


184320 





50000 





134320 


12 


184320 


35000 


20000 





199320 



PERIOD 



DEPRECIATION 



TAXABLE 
INCOME 



INCOME 
TAX 



AFTER TAX 
CASH FLOW 



DISCOUNTED 
CASH FLOW 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 



48462 


-64142 


-32071 


16391 


15 790 


44423 


-5 73 76 


-28688 


15735 


14604 


40385 


-4 7883 


-23941 


16443 


14702 


36346 


-35663 


-17831 


18515 


15948 


32308 


-45715 


-22857 


9450 


7 842 


28269 


-3040 


-1520 


26749 


2 1383 


24231 


17362 


8681 


32912 


25346 


20192 


40491 


20246 


40438 


30002 


16154 


66348 


33 1 74 


49328 


35257 


121 15 


69932 


34966 


47081 


324 19 


8077 


126243 


63122 


71 198 


47229 


4038 


195282 


97641 


101679 


64978 



TOTAL DISCOUNTED CASH FLOW 325500 

INITIAL INVESTMENT 325500 

NET PRESENT VALUE OF INVESTMENT 



DO YOU WISH TO (l)QUIT, (2)ENTER NEW SET OF DATA* OR (3>CHANGE CURRENT ■ 
?1 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAMlSAulv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CAPITAL INVESTMENT ANALYSIS 



CAPINV 
36080 



CAPINV provides a listing of gross cash flow, annual depreciation, annual 
tax, net cash flow, and discounted cash flow, for a long-term capital 
investment. 



The user will be required to input the following values: 

Al = initial investment 

A2 = number of cash flows 

A(l) = for I = 1 to A2, the values for the cash flow 

A3 = depreciable amount 

A4 = depreciable life 

A5 = salvage value 

A6 = method of depreciation: 



1. 
2. 



A7 
A8 



= discount 
= tax rate 



rate 



straight line 
double-declining balance 
to straight line 
sum-of-the-years digits 



50 years of cash flows 
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RUN 

GET-$CAPINV 

RUN 

CAPINV 

* CAPITAL INVESTMENT ANALYSIS * 

THIS PROGRAM PRINTS THE GROSS CASH FLOW, ANNUAL DEPRECIATION* ANNUAL 
TAX. NET CASH FLOW, AND DISCOUNTED CASH FLOW FOR A LONG-TERM CAPITAL 
INVESTMENT. 



WHAT IS THE INITIAL INVESTMENT?25000 

HOW MANY CASH FLOWS DO YOU WISH TO ENTER? 10 

ENTER 10 GROSS CASH FLOWS?2-3500*3000* 3000*2750*2750*2500*2500* 2000 
?? 1750* 1600 

TYPE DEPRECIABLE AMOUNT, LIFE* AND SALVAGE VALUE? 1 5000* 12* 8000 

DEPRECIATION METHODS! 

1. STRAIGHT LINE 

2. DOUBLE DECLINING TO STRAIGHT LINE 

3. SUM-OF-THE-YEARS DIGITS 
ENTER NUMBER OF DEPRECIATION METH0D72 

ENTER DISCOUNT RATE AND TAX RATE? . 333* • 450 

***** ****** ********** ** ***** ******* ***** * **************************** 



YEAR 


GROSS CASH 


ANNUAL 


ANNUAL 


NET CASH 


DISCNTD 




FLOW 


DEPREC 


TAX 


FLOW 


CASH FLOW 


1 


3500 


2500 


450 


3050 


2288.07 


2 


3000 


2083.33 


412.5 


2587.5 


1456.2 


3 


3000 


1736.11 


568.75 


2431 .25 


1026.45 


4 


2750 


1446.76 


586.458 


2163.54 


685.243 


5 


2750 


1205*63 


694.965 


2055.04 


488*28 


6 


2500 


1004.69 


672.888 


1827.11 


325.675 


7 


2500 


837.245 


748*24 


1751.76 


234.241 


8 


2000 


697.704 


586.033 


1413-97 


141 .84 


9 


1750 


581*42 


525*861 


1224.14 


92.1212 


10 


1600 


484.517 


501.967 


1098.03 


61.9889 


TOTAL 


25350 


12577.4 


5747.66 


19602.3 


6800*1 1 



DO YOU WISH ANOTHER RUNl 1=YES* 2=N0?2 

********************************************************************* 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

BASIC 



CONTRIBUTED PROGRAM 



ACKNOWLEDGEMENTS: 



CSHFL 
36142 



CASH FLOW ANALYSIS 
Program calculates: 

1. Present value of up to 4 cash flows for a given cost of capital 

2. Implicit rate of return which equates the present value of the 
cash flow to zero. 

3. Period in which the payback occurs if applicable. 



You will be asked to type in: 

1. Cost of capital in % per period. 

2. Number of periods (less than 121). 

3. Number of cash flows being considered. 



None 
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RUN 

RUN 
CSHFL 

WHAT IS THE ESTIMATED COST OF CAPITAL IN PERCENT? 15 

WHAT IS NUMBER 0F»PERI0DS?5 

HOW MANY FLOWS ARE BEING CONSI DERED, 1,2, 3, OR 4?4 

ENTER CASH FLOWS, SEPARATE BY COMMAS,MINUS FOR OUTLAYS 

FLOW l,FLOW 2, FLOW 3, FLOW 4 
PERIOD INCOME7-100, -100,-100, -100 

PERIOD 1 INCOME? 50, 40, 30, 20 

PERIOD 2 INCOME740, 30,20, 10 

PERIOD 3 INCOME? 30, 20, 10,50 

PERIOD 4 INCOME720, 10,50,40 

PERIOD 5 INCOME? 10,50,40, 30 



FLOW 1 

PAYBACK FOR INITIAL INVESTMENT ON FLOW 1 IS IN PERIOD 4 

PRESENT VALUE OF FLOW 1 IS 9.85631 

RATE OF RETURN EQUATING P.V. OF FLOW TO ZERO IS 20.272 



PERCENT 



FLOW 2 

PAYBACK FOR INITIAL INVESTMENT ON FLOW 2 IS IN PERIOD 5 

PRESENT VALUE OF FLOW 2 IS 1.19359 

RATE OF RETURN EQUATING P.V. OF FLOW TO ZERO IS 15.5199 



PERCENT 



FLOW 3 



PRESENT VALUE OF FLOW 3 IS- 3. 7403 

RATE OF RETURN EQUATING P.V. OF FLOW TO ZERO IS 13.5603 



PERCENT 



FLOW 4 

PRESENT VALUE OF FLOW 4 IS-4.38605 

RATE OF RETURN EQUATING P.V. OF FLOW TO ZERO IS 13.3588 



PERCENT 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM IjAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CTC MANUFACTURING PARTS CONTROL 



CTC1 
36210 



These CTC Manufacturing Parts Control programs are part of a total 
accounting system written by Computer Terminal Corporation for the HP 2000A. 
(See A706-36213 CTC Payroll Program, A717-36212 CTC Projection Programs, 
A71 1-3621 4 CTC Accounts Receivable, and A708-36211 CTC Inventory Control 
for Finished Products.) Abstracts of the 23 manufacturing parts control 
programs are on the following page along with an index to the documentation. 



Supplementary documentation is required, 
for complete documentation. 



Order HP 36210, Option D00 



This package was written for a 2000A with a non-standard disc. The file 
structure has 200 physical records per file. 

Teleprinter output is directed to a 132 column AB Dick printer. 

Non-printing control characters direct the cursor on the HP 2600A CRT. 
(The characters are ignored by a standard teletype.) 

These differences mean that the user will need to modify the software to 
run on a standard HP 2000A system. Although it will RUN without modifi- 
cation on an HP 2000C, its 64 word/record limitation makes inefficient 
use of the system. 



Jackie Shelton 

Computer Terminal Corporation 
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INDEX TO MANUFACTURING PARTS CONTROL PROGRAMS 



I. INTRODUCTION 

A. Brief Description of Programs 

B. File Structure 

1 . Basic Data Files 

2. Sub-Assembly-Component File 

3. Multiple Pull File 

4. Transaction File 

5. Auxiliary File 

6. Scratch Files 

C. File Set Up Procedures 

II. DETAILED INSTRUCTIONS TO PROGRAMS 

A. UPDTG Provides direct updating of (1) any entry within a part number, or (2) a 

particular entry for several part numbers. Under type (1) a display of 
all the information stored on the part number is given. 

B. UPDTQ Provides automatic on order or on hand updates including multiple pulls 

and returns for subassembly-component groups. 

C. MULFIL Creates a file which is used in doing a play multiple pull. 'X' sub- 

assemblies are entered with the quantity to be pulled. Each component 
part involved and the total quantity to be pulled is placed on this file. 

D. MULPRT This program uses the file created in program MULFIL to do a play multiple 

pull. It pretends to pull the quantity listed for each component part, 
found on the play pull file. The print-out lists the part numbers, the 
on hand value before and after the pull, and flags the parts which are short. 
A listing of only those parts which are short can also be made. 

E. DELAD1 Provides deletion of a part number, addition of a part number, or the 

change of a part number on the file to another number not on the file. 

F. SUBDIS Provides a quick display of a subassembly with its component parts and 

the number of times each is used in the subassembly. 

G. CSTANL Calculates (1) the total cost of all parts on file: on hand, on order, 

(2) the total cost of 'A' items: on hand, on order, (3) the total cost 
of ' B ' items: on hand, on order, (4) the total cost of 'C items: on hand, 
on order, (5) the total maximum cost on hand, (6) the total minimum cost 
on hand, and various $ usage values. 

H. UPDTSB Provides updating of the subassembly-component file which contains each 
subassembly and a list of its component parts. 

Provides formatted data of the entire inventory file. 

Provides formatted data of the whole transaction file or just the last 
five transactions made. 

Provides formatted data of the subassembly-component file. 

Provides formatted data of obsolete parts (those having all usages as 
zero). 

M. CATPRT Gives three types of catalogues of the inventory files: (1) part number 
and description, (2) part number, description and standard cost, or (3) 
part number, description, standard cost, quantity on hand and cost on 
hand. The listing is in order of part number. 

N. MODG0 Allows for modification of the auxiliary file. 

0. AVE$T Figures the total average dollar weekly usage for all parts and places 
this value on the auxiliary file. The value is used to figure the cate- 
gory and maximum and minimum values for each part number. 

P. USEPRD Prints all part numbers with their descriptions which are used in the 
specified product. 

Q. USECNT Prints (1) the total number of different parts used in each product and 
(2) the total usage of each product. 

R. COUNT Counts the number of parts in files Gl through G9 and figures the number 
of parts left available in each file. 



I. 


IPRT 


J. 


TPRT 


K. 


FSUBP 


L. 


OBSPRT 
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CATSRT 



PRDCST 



U. OHCLER 



V . TRA$ 



W. EXTCST 



INDEX TO MANUFACTURING PARTS CONTROL PROGRAMS 

Prints part numbers belonging to a specified category (A, B, or C). 
Figures cost on hand for each part printed and totals the cost on 
hand for each category. 

The program figures (1) the cost to build each product or (2) the cost 
of a specified subassembly. 

This program allows the user to clear the on order value, the on hand 
value, or the usage of one of the 21 products for all parts on one of 
the data files (Gl - G9). 

This program lets the user input part numbers and quantities. This 
data is saved on a scratch file which has to be opened before the 
program is run. The data can be updated and a Transfer of $ Amounts 
report printed. 

With this program, the user can enter a part number and quantity and 
the program will return with the part description, standard cost, and 
extended cost (standard cost x quantity). 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M -D Adlv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CTC INVENTORY CONTROL FOR FINISHED PRODUCTS 



CTC2 
36211 



These CTC Inventory Control for Finished Products Programs are part of 
a total accounting system written by Computer Terminal Corporation for 
the HP 2000A. (See A706-36213 CTC Payroll Program, A708-36210 CTC 
Manufacturing Parts Control, A711-36214 CTC Accounts Receivable, 
A717-36212 CTC Projection Programs.) Abstracts of the 31 inventory 
control programs are on the following page along with an index to the 
documentation. 



Supplementary documentation is required, 
for complete documentation. 



Order HP 36211, Option D00 



This package was written for a 2000A with a non-standard disc. The 
file structure has 200 physical records per file. 

Teleprinter output is directed to a 132 column AB Dick printer. 

Non-printing control characters direct the cursor on the HP 2600A CRT. 
(The characters are ignored by a standard teletype.) 

These differences mean that the user will need to modify the software 
to run on a standard HP 2000A system. Although it will RUN without 
modification on an HP 2000C, its 64 word/record limitation makes 
inefficient use of the system. 



Jackie Shelton 

Computer Terminal Corporation 
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INDEX TO INVENTORY CONTROL FOR FINISHED PRODUCTS 

I. INTRODUCTION 

A. Brief Description of Programs 

B. File Structure 

1. Unit File 

2. Transaction File 

3. Customer Sort File 

II. PROGRAM INSTRUCTIONS 

A. UPDTIC This program allows the user to add a new unit to the unit files or modify 

a unit already on the files. The user can delete a unit through the modifi- 
cation portion of the program. He can also view the information stored on a 
unit without making any changes. 

B. ICPRT This program provides formatted output of the unit files. The user can 

specify the beginning and ending units. He can also control the type of 
listing to be made by entering values for these ten variables: vendor #, 
transaction type, sales location, vendor # location, lease status, field 
service location, terms, salesman, agreement #, and tax rate. 

C. ICTPRT This program provides formatted output of the transaction file which keeps 

record of any changes made to the unit files. 

D. TASOLD This program provides formatted output of those unite which are leases sold 

to Trans-America. The user can specify the customer number interval he 
wants printed. 

E. UPDTAQ This program allows the user to add several new units to the files at once. 

Their data items are the same except for product number, serial number, and 
the date. 

F. EXLSE This program provides formatted output of leases expirina 'X' days from the 

current date. The user specifies the unit interval over which the program is 
to search and the number of days to expiration. Sales location and lease 
status are variable also. 

G. OWNSUM This program summarizes the ownership of leased and sold units by product. 

H. UNTSUM This program is a summary of ownership by individual units (leased). It 

calculates the remaining life of the lease, the remaining rental billing and 
the remaining maintenance billing for each unit. 

I. STPRT User enters customer number unit locations (up to 50) to be printed for all 
products. All standard information is printed. User also specifies trans- 
action, lease status and state name. He can determine the beginning and 
ending units to be searched also. 

J. UNTDIS User enters a product type and serial number and the program displays all 
standard information stored on the specified unit. 

K. CTCSUM The program is a summary of CTC individual leased units. A rental credit 
figure is calculated in addition to the information given in program UNTSUM 
(except invoice # and lease status). Totals are given at the end of each 
product. 

L. ISFPRT User specifies a certain number of sales locations or field service locations 
over which the program should search for units to be printed. It takes one 
pass over the files for each location entered (limit of 25) 9 user also can 
specify the transaction of the units to be printed. 

M. SALPRT Print out of the unit files keyed on sales location. User enters the sales 
location he wants printed. A new page is started for each sales location. 
Customer name, transaction and lease status are in decoded form. 

N. SUMALL The program gives a summary count of all units for each product by transaction 
type. 

0. SUMFS The program summarizes the sold and leased units for each product by sales 
location. Total units and maintenance is given for each location. 

P. CUS1 The program prints the product number, serial number and transaction code of 
each unit on file which belongs to a user specified customer. The program 
can be used for only one customer per pass over the unit files. 
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INDEX TO INVENTORY CONTROL FOR FINISHED PRODUCTS 



Q. CUSSRT This program prints the units belonging to each customer on file. For each pass 
over the unit files, the units for 18 sequential customer numbers are found and 
printed, however, if a customer has over 352 units on file the program will 
abort. All information stored is printed for each unit found. 

R. ICCSRT This program sorts the units by customer number and agreement number. It sorts 
20 customers at a time, placing the customer number and product/serial number of 
each unit belonging to the customer on the customer sort file. Several reports 
can be generated from this file. 

S. SALEXP Prints units expiring X days from the current date entered by sales location. 
The user enters the sales locations (up to 25) to be printed. 

T. ICTANL This program does an analysis on the transaction file. It finds each product/ 
serial number on the file and prints the final status of the unit as found on 
the unit files. 

U. FREUNT Prints the units (product/serial number) which are provided for in the files 
but are not yet in use. 

V. AGETRA This program ages the date found on each unit on file. The user has the following 
options: unit interval to be searched and transaction type. If the transaction 
type equals 2, the user needs to specify whether the customer number of the unit 
should be equal to 9999 or not equal to 9999. 

W. INSTLS Prints by product/serial number, the leased units on file whose date falls 
between a beginning and ending date inclusive specified by the user. 

X. TAPAY Picks up all TA units which are not leases. Prints product, serial number, date 
and invoice number for each unit found. Columns for lease period, net amount, 
tax rate, extended tax and total are given to be filled in by user. 

Y. PRT22 This program searches the unit files to find all customers which have 2200 

products which are in transit, sold, or leased. The program then sorts them 

into customer number order and prints their name/addresses (formatted for 
labels). 

Z. AALSES Prints an analysis of annual leases for account 2801-2802. It picks up only 
annual leases belonging to TA or CTC. Remaining life and revenue of the lease 
is also calculated and printed. 

Z-l. CBIPRT This program prints the cycle billing each month. The program prints invoices 

for each customer falling in an interval specified by the user. It picks up 

the leased units only from the customer sort file. Thus, that file must be up 
to date when the cycle billing is run. 

Z-2. ICM0DQ This program allows the user to quickly update a particular data item of several 
units. The user picks the data item he wants to modify and enters the product/ 
serial number and new value of each unit to be modified. 

Z-3. ICCPRT This program prints units by customer and agreement number as found on the 
customer sort file. The user can specify the transaction and lease status 
of the units to be printed. 

Z-4. NACBIL Prints the NAC leased units by customer as found on the customer/unit sort file. 

Z-5. EXLSEA Prints units expiring in X days by customer and agreement number as found on the 
customer/unit sort file. 



III. APPENDIX 

A. General Procedures 

B. Serial Number Limits 

C. Data Entry Boundaries (Code Breakdown) 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DA&Iv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CTC PROJECTION PROGRAMS 



CTC3 
36212 



These CTC Projection Programs are part of a total accounting system written 
by Computer Terminal Corporation for the HP 2000A. (See A706-36213 CTC Pay- 
roll Program, A708-36210 CTC Manufacturing Parts Control, A711-36214 CTC 
Accounts Receivable, and A708-36211 CTC Inventory Control for Finished 
Projects.) Abstracts of the 10 projection programs are on the following 
page along with an index to the documentation. 



Supplementary documentation is required, 
for complete documentation. 



Order HP 36212, Option D00 



This package was written for a 2000A with a non-standard disc. The file 
structure has 200 physical records per file. 

Teleprinter output is directed to a 132 column AB Dick printer. 

Non-printing control characters direct the cursor on the HP 2600A CRT. 
(The characters are ignored by a standard teletype.) 

These differences mean that the user will need to modify the software to 
run on a standard HP 2000A system. Although it will RUN without modifica- 
tion on an HP 2000C, its 64 word/record limitation makes inefficient use 
of the system. 



Jackie Shelton 

Computer Terminal Corporation 
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INDEX TO PROJECTION PROGRAMS 

I. INTRODUCTION 

A. Brief Description of Programs 

B. File Structure 

1. Basic Input File (INI) 

2. Intermediate File (IN2) 

3. Income Statement File (Rl) 

4. Cash Flow File (R2) 

5. Balance Sheet File (R3) 

II. DETAILED INSTRUCTIONS TO PROGRAMS 

A. INMAIN This program provides complete maintenance of the input file (IN2). The user can 

(1) create the input file, (2) modify any item of the input file, (3) obtain a listing 
of the input file, or (4) destroy the input file (set all values to zero). 

B. IN2CAL This program calculates the intermediate file (IN2). 

C. INST1 This program sets up the income statement file (Rl). The user enters manual inputs 

needed which he can also modify. The user can indicate the month interval over which 
the program should calculate (1 to 48). 

D. R1PRT This program sets up the income statement. User indicates the projected year to be 

printed and if he wants the listing by month or quarter. 

E. PJPLAC The program shows the projected placement of each product by sale type; i.e., the 

number of units projected for each product. Totals are given at the end of each 
product. A separate listing of totals only is given at the end of the program. 

F. CSHFLO This program sets up the projected cash flow file (R2). Manual inputs for initial 

and monthly items are needed which can be modified also. User indicates the month 
interval to be set up (1 to 48). 

G. R2PRT This program prints the cash flow statement. User indicates the projected year to 

be printed and if he wants the listing by month or quarter. 

H. BSHEET This program sets up the balance sheet file (R3). User can enter and modify begin- 
ing balances. He also specifies the monthly interval (1 to 48) over which the file 
is to be set up. 

I. R3PRT This program prints the balance sheet. User indicates projected year to be printed 
and if he wants the listing by month or quarter. 

J. EXPROJ Allows the user to expand the data on the basic data file (INI) and the monthly 

constants on the income statement file (Rl) from a base year and month through year 
4, month 12. This is done on a yearly % which eliminates the user manually inputting 
each quantity and constant. 

III. APPENDIX 

A. Sales Types and Abbreviations Used (Listed in Order Stored) 

B. Product Model Numbers (Listed in Order Stored) 

C. Description of Intermediate File Calculations 

D. Income Statement Format and Calculations 

E. Income Statement Constants 

F. Cash Flow Format and Calculations 

G. Cash Flow Constants 

H. Balance Sheet Format and Calculations 
I. Balance Sheet Constants 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JJxX&XV^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CTC PAYROLL PROGRAMS 



CTC4 
36213 



These CTC Payroll Programs are part of a total accounting system written 
by Computer Terminal Corporation for the HP 2000A. (See A71 7-3621 2 CTC 
Projection Programs, A708- 36210 CTC Manufacturing Parts Control, 
A711-36214 CTC Accounts Receivable, A708- 36211 CTC Inventory Control for 
Finished Products.) Abstracts of the 34 payroll programs are on the 
following page along with an index to the documentation. 



Supplementary documentation is required, 
for complete documentation. 



Order HP 36213, Option D00 



This package was written for a 2000A with a non-standard disc. The file 
structure has 200 physical records per file. 

Teleprinter output is directed to a 132 column AB Dick printer. 

Non-printing control characters direct the cursor on the HP 2600A CRT. 
(The characters are ignored by a standard teletype.) 

These differences mean that the user will need to modify the software to 
run on a standard HP 2000A system. Although it will RUN without modifi- 
cation on an HP 2000C, its 64 word/ record limitation makes inefficient use 
of the system. 



Jackie Shelton 

Computer Terminal Corporation 
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I. INTRODUCTION 

A. Brief Description of Each Program 

B. Description of File Structure 

1. Employee Data Base Files 

2. Employee Pay Records 

3. Payroll Transaction File 

4. Auxiliary File 

5. Commission/Adjustment File 

6. State/Department/Employee # Sort File 

7. Alphabetic Sort File 

8. Employee Earnings History Files 

II. DETAILED DESCRIPTION OF EACH PROGRAM 

A. EADD Adds a new employee to the employee data base files. The employee number is 

assigned sequentially by the program beginning with number 1001. 

B. EMOD Modifies any item under the specified employee number in the employee data base 

files. 

C. EFPRT Provides formatted output of the employee data base files. 

D. ETPRT Provides formatted output of the payroll transaction file which keeps record of 

any changes made to the payroll files. 

E. ESRT1 Sorts the employee names into alphabetical order printing the employee numbers in 

that order on a separate file. 

F. ECAT Prints a cross reference employee catalogue. One listing prints the employee numbers 

in ascending order with their corresponding names; the other listing prints the em- 
ployee names in alphabetical order with their corresponding numbers. 

G. PAYPER Allows entry of the bi-weekly payroll hours, commissions, or adjustments. 

H. PAYPRF Provides formatted output of the regular bi-weekly payroll hours entered with pro- 
gram PAYPER. 

I. PAYREC 1. Allows the clearing of all employee accrued vacation or accrued sick hours in 
the current pay records. 

2. Allows the modification of any item of the current pay records (i.e., hours or 
earnings). 

3. Allows the initialization or modification of the accumulated quarter-to-date 
(QTD) and year-to-date (YTD) totals. 

4. Allows the clearing of all QTD, YTD, or both totals. 

J. CLRAJ Clears the commission/adjustment file. All information on the file is lost. 

K. C/APRF 1. Gives a proof of commissions entered with program PAYPER. The F.I.C.A., Federal, 
Disability, and Net Pay is figured during this run. User indicates when com- 
missions are to be added to the QTD and YTD totals. 
2. Gives a proof of adjustments entered with program PAYPER. User indicates when 
adjustments are to be made to the QTD and YTD totals. 

L. MODAJ Enables user to modify the commission and/or adjustments input with program PAYPER. 

M. ST/DPT Sorts all employee numbers on file into states and into departments within each 

state printing the state, department, and employee numbers on a file in that order. 

N. PAYFIG Figures the current earnings, F.I.C.A., and Federal tax for the current bi-weekly 
payroll. This information is stored in each employee's current pay record. 

0. CKREG Formatted print out of the information to be printed on the checks. Program assigns 
check numbers and adjustments, commissions and YTD totals are included in the 
listing. Department, state, and company totals are given for both adjustments and 
the current pay (regular and commissions). Current pay is not added to QTD and YTD 
totals with this program!! 

Counts the number of active employees in each state giving a listing of this count. 

Prints the QTD and YTD accumulated totals for all employees on file. 

Prints the quarterly payroll tax ledger required at the end of each quarter with 
state and company totals. 

S. 941 A Prints the 941 A forms required at the end of each quarter with state and company 
totals. 

T. W2F0RM Prints the W-2 Forms required at the end of each year. 

U. EMPLAB Prints (1) data base information of specified employee on labels, or (2) time card 
labels for all active, non-exempt employees. 

V. EDIT Prints the payroll calculation edit required after each bi-weekly payroll run. 



P. 


EMPCNT 


Q. 


ACCPRT 


R. 


QTRLEG 



(continued on next page) 
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II. DETAILED DESCRIPTION OF EACH PROGRAM (continued) 

W. CURADD Adds the payroll for the current period to the QTD and YTD totals. It also places 
in the employee earings file each check amount, number, and date issued an employee 
that current pay period (regular check, adjustment check, and commission check). 
This should be run after the check register and before the checks are printed. 

X. EMPDEL Deletes employees from the payroll files. User can also instruct the program to 

pick up all the deleted employee numbers so they can be re-assigned to new employees 
with program EADD. This program should be run at the end of each year. 

Y. LABDIS Prints the labor distribution report required after each bi-weekly payroll run. 

Z. CKPRT Prints checks for either the regular payroll or the commissions. 

Z-l. WKCOMP Prints the workman's compensation distribution report required at the end of each 
bi-weekly payroll . 

Z-2. ERNHIS The program provides 3 user options: (1) a complete earnings history for each 
employee on file, (2) an earnings history for one particular employee only, or 
(3) to clear the earnings history files for a new quarter. 

Z-3. SALREV This is a special report which prints the information stored in the data base files 
which pertains to each employee's salary. User enters the department numbers of 
those he wants printed. 

Z-4. VACSIC The user has 2 options: (1) to add the monthly accrued vacation and sick hours to 
each employee's pay records, or (2) to deduct the vacation and sick hours earned 
during the current pay period from the accrued vacation and sick hours. 

Z-5. VSPRT This program gives formatted output by state and department of each employee's ac- 
crued vacation and sick hours. State and company totals are given also. 

Z-6. INTVS Allows user to quickly initialize the vacation or sick accrued hours of specified 
employees. 

Z-7. CKA/C Prints a check register on commissions and adjustments only. 



III. APPENDIX 



A. General Procedures 

B. Bi -Weekly Payroll Procedures 

C. Quarterly Procedures 

D. Yearly Procedures 

E. List of State Codes and Corresponding Cut-offs 

F. Department Codes 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM IlAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CTC ACCOUNTS RECEIVABLE 



CTC5 
36214 



These CTC Accounts Receivable programs are part of a total accounting 
system written by Computer Terminal Corporation for the HP 2000A. (See 
A71 7-3621 2 CTC Projection Programs, A706-36213 CTC Payroll Programs, 
A708- 36210 CTC Manufacturing Parts Control, A708- 36211 Inventory Control 
for Finished Products.) Abstracts of the 13 accounts receivable programs 
are on the following page along with an index to the documentation. 



Supplementary documentation is required, 
for complete documentation. 



Order HP 36214, Option D00 



This package was written for a 2000A with a non-standard disc. The file 
structure has 200 physical records per file. 

Teleprinter output is directed to a 132 column AB Dick printer. 

Non-printing control characters direct the cursor on the HP 2600A CRT. 
(The characters are ignored by a standard teletype.) 

These differences mean that the user will need to modify the software to 
run on a standard HP 2000A system. Although it will RUN without modifica- 
tion on an HP 2000C, its 64 word/record limitation makes inefficient use 
of the system. 



Jackie Shelton 

Computer Terminal Corporation 
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INDEX TO ACCOUNTS RECEIVABLE 



I. INTRODUCTION 

A. Brief Description of Programs 

B. File Structure 

1 . Name File 

2. Invoice File 

3. Transaction File 

4. Alphabetic File 

5. Auxiliary File 

6. Accounting Distribution File 

C. File Set Up Procedures 

II. DETAILED INSTRUCTIONS TO PROGRAMS 



A. INV 



B. CUSADR 



C. NEWAGE 



CATLOG 

SORT2 

NEWTRA 



t. 



ACCLEG 



H. AGETOP 



I. AGEPG 



J. 


AGE60 


K. 


ARNLAB 


L. 


ARINPT 


M. 


ARSORT 



Provides (1) entry of new invoices, credit invoices and payments or (2) modification 
of existing invoices under a specified customer number. 

Allows user to add a new customer to the name/address file or modify the name/address 
of a customer already on file. 

Provides three types of formatted listings of the files: (1) an aged listing of CTC 
owned invoices only, (2) an aged listing of TA owned invoices only, and (3) an aged 
listing of all invoices on file. The user can obtain a listing of all customers, one 
customer, or just the grand total of the type of listing specified. 

Provides the formatted output of two catalogues: (1) a customer number-name/ 
address-listing and (Z) a customer name/address-number alphabetical listing. 

Sorts the name file into alphabetical order printing the customer numbers in that 
order on a separate file whicn is used in Program--CATLOG. 

Provides (1) formatted output of the entire accounting transaction file and (2) 
formatted output of just the LAST X transactions on file. 

Provides additional formatted output of the transaction file. It picks up only 
those transactions which are new invoices, credit invoices, payments or deletions 
made with Program-- INV. Totals are given at the end of the listing to enable the 
user to check for data entry errors. 

Ages the top X customers who have accounts more than 60 days over due. User 
specifies the top X he wants aged up to 50. 

Ages a specified interval or group of customer numbers placing each customer's 
aging on a separate page with separate headings. No grand totals are given. 

Ages invoices over 60 days old only. The program prints the aging in order of 
of customer number. Grand totals are given at the end. 

Prints customer names and addresses on mailing labels. The labels may be in order 
of customer number or alphabetically. 

Allows the user to (1) input account data groups onto the account distribution 
file or (2) obtain a formatted listing of the account distribution file. 

Sorts the account data groups on the account distribution file by account number 
or reference number. Only 350 groups can be sorted at one time. 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DAblv 



CTC ACCOUNTS PAYABLE 



CTC6 
36638 



These CTC Accounts Payable programs are part of a total accounting system 
written by Computer Terminal Corporation, now named Datapoint Corporation. 
(See also A706-36213 CTC Payroll Program, A717-36212 CTC Projection Pro- 
grams, A71 1-3621 4 CTC Accounts Receivable, A708-36211 CTC Inventory Control 
for Finished Products, and A708-36210 CTC Manufacturing Parts Control.) 
Abstracts of the 24 accounts payable programs are on the following page 
along with an index to the documentation. 



Supplementary documentation is required, 
for complete documentation. 



Order HP 36638, Option D00 



This package was written for a 2000A with a non-standard disc, but has 
been modified to run on a 2000F. 

Teleprinter output may be directed to a 132 column AB Dick, or equiva- 
lent printer. 

Non-printing control characters direct the cursor on the HP 2600A CRT. 
(The characters are ignored by a standard teletype.) 

Programs APDTAP and APDSTP make use of a Datapoint 2200 Computer with 
cassette tape facilities. They are included in this package as an op- 
tional feature for any users who have this capability. 

These differences mean that the user will need to modify the software to 
run on a standard HP 2000A system. Although it will RUN without modifi- 
cation on an HP 200OC, or 2000C/F, its 64 word/record limitation makes 
inefficient use of the system. 



ACKNOWLEDGEMENTS: Jackie Shelton 

Datapoint Corporation 
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INDEX TO ACCOUNTS PAYABLE PROGRAMS 



I. INTRODUCTION 

A. Brief Description of Programs 

B. File Structure 

1. Name/Address File 

2. Daily Input File 

3. Checks Held File 

4. Check History File 

5. Auxiliary Data and Name Sort File 

6. Scratch Files 

C. File Set Up Procedures 

II. Detailed Program Instructions 

A. APNAME This program allows the user to enter new vendors into the name/address 

file or modify the name/address of a vendor already on file. 

B. APNSRT This program sorts the vendor names into alphabetical order printing the 

vendor numbers in that order on the auxiliary data and. sort file. 

C. APNCAT With this program, the user can obtain (1) a formatted catalogue of vendor 

number order or alphabetically; or (2) a list of all vendor numbers not in 
use. 

D. APCHIS This program prints the check history of all vendors who have one. User 

specifies the vendor number interval to be printed. 

E. APCHPT This program allows the user to obtain (1) a quick display of all checks 

in the checks held file for a particular vendor or (2) a formatted print 
out of the checks held by vendor type and vendor number or (3) a grand 
total only of check amounts on the file. 

F. APINPT/ This program allows the user to input invoices for vendors on file, modify 
APIPRT invoices already on the input file, print the input file (in order of 

entry), or clear all data from the input file. (Chains to APIPRT) 

G. APCKRG This program prints the check register. Auto checks (checks printed by 

the computer) are listed first with a total amount at the end. 'Hand 
written checks follow with a total amount also. A total of both auto 
and hand checks is given at the end. The check numbers are assigned to 
each invoice with Program--APCKAS. When that program is finished, it 
automatically runs APCKRG. However, APCKRG can be run alone if the 
check numbers have been assigned. 

H. APCKPT This program prints the auto checks found on the check register. Proper 
APCK1 check forms need to be loaded into the printer. The two programs have 
slightly different formatting. 

I. APDIST This program prints an account distribution determined from the account 
numbers of the invoices on the input file. Totals for each account 
number and a grand total are also given. 

J. APADCH This program adds each check found on the check register to the checks 
held file. This should be run only after a correct check register has 
been obtained. 

K. APPERG This program allows the user to delete checks from the checks held file. 
The user indicates if the checks to be deleted are voided or released and 
then enters the checks he wants purged. The program deletes the checks 
from the checks held file and adds them to the check history file if there 
is an appropriate history. 

L. APCKAS This program assigns auto check numbers to the invoices on the input file. 
When all check numbers have been assigned, the program will go on to 
print the check register (Program--APCKRG). 

M. APCH#P This program prints the checks held file in check number order. 

N. APDTAP/ This program prints an account distribution as in program APDIST. However, 
APDSTP at the end of the distribution report, APDTAP chains to APDSTP which prints 
an 80 character string (general ledger entry) for each account number, grand 
total, and batch total of the distribution on a cassette tape in the front 
deck of a 2200 version II machine. 

0. APNLAB This program prints vendor name/addresses on tab labels in vendor number or 
alphabetical order, or prints a group of user specified vendor numbers. 

P. APCHAG This program provides the user with an aging of the checks held file in 
order of vendor number. 

Q. APCHGA This program ages the checks held file as in program APCHAG but prints the 
grand totals only. 

R. APAGV/ A combination of these two programs will provide the user with an aging of 
APAGVP the checks held file as in APCHAG; however, this aging is sorted by vendor 
type also. 
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S. APAGPG Ages the checks held file by vendor placing each vendor on a separate page. The 
user may specify an interval or group of vendor numbers he wishes to be aged. 

T. CTC6 This program may be used to initialize the files. Just GET and RUN CTC6 to per- 
form the initialization. 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M IS 2\.OXl^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



DEPRECIATION METHOD COMPARISON 



DEPCOM 
36082 



This program computes and prints the monthly depreciation of a given 
investment by four methods: straight line, double declining balance, 
sum-of-the-year's-digits, and 150% declining balance, and provides an 
output for easy, direct comparison. 



After RUN, DEPCOM is mostly self-explanatory. 

If the user is familiar with the program, and would rather use READ 
statements than INPUT statements, alter the program as follows: 

9003 READ Z$,I1 ,S1 ,L1 ,A1 ,Z1 ,R,Y 

9005 GOTO 9088 

9900 DATA Y if yearly summary, N if not, investment salvage 
value, life, month, year of investment, 
rate of return, option indication. 



Depreciable life must be an integer greater than one and less than 76. 
(To alter high value, change dimension statements for A,B,C,D,H,I,J,K 
in lines 9112 and 9114, and check in line 9046.) 
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RUN 

GET-SDEPCOM 

RUN 

DEPCOM 

** DEPRECIATION METHOD COMPARISON ** 

THIS PROGRAM COMPUTES AND PRINTS DEPRECIATION BY MONTHS BY 
FOUR METHODS! STRAIGHT LINE* DOUBLE DECLINING BALANCE, SUM-OF- 
THE-YEARS-DIGITS* AND 150 PERCENT DECLINING BALANCE. 

IF ONLY A YEARLY SUMMARY IS DESIRED TYPE Y* OTHERWISE N. 
?N 



WHAT IS THE AMOUNT OF YOUR INVESTMENT??35000 

WHAT IS THE SALVAGE VALUE?? 15000 

WHAT IS THE DEPRECIABLE LIFE (IN YEARS)??5 

IN WHICH MONTH, AND IN WHICH YEAR* IS YOUR INVESTMENT MADE? 
(PLEASE ENTER AS MM* 1 9YY>? 7, 1 969 

WHAT IS THE DISCOUNT RATE (IN DECIMAL NOTATION) FOR COMPUTING 
THE PRESENT VALUE OF THE ANNUAL DEPRECIATION??. 1 5 

YOU HAVE THE OPTION TO SWITCHOVER FROM THE DOUBLE DECLINING 
BALANCE METHOD TO THE STRAIGHTLINE METHOD AT APPROPRIATE TIMES. 
TO PREVENT ANY SWITCHOVER PLEASE TYPE 0. 

TO SPECIFY A SPECIFIC YEAR OF SWITCHOVER* PLEASE TYPE THE YEAR. 
TO OBTAIN AN AUTOMATIC SWITCHOVER WHEN THE ANNUAL STRAIGHTLINE 
DEPRECIATION BECOMES GREATER THAN THE DOUBLE DECLINING BALANCE 
VALUE, PLEASE TYPE 1.71 

******************************************************************** 



DATE 



STRAIGHTLINE DBL DECLINING SUM-OF-THE 



150X DECLINING 



YR 


MO 




BALANCE 


YEARS'-DIGITS 


BALANCE 


1969 


1 














1969 


2 














1969 


3 














1969 


4 














1969 


5 














1969 


6 














1969 


7 














1969 


8 


333.333 


666.667 


555.556 


500 


1969 


9 


333.333 


666*667 


555.556 


500 


1969 


10 


333.333 


666.667 


555.556 


500 


1969 


1 1 


333.333 


666*667 


555.556 


500 


1969 


12 


333.333 


666*667 


555.556 


500 


TOTAL 


1969 


1666.67 


3333.33 


2777.78 


2500 


CUM DEPR 


1666*67 


3333.33 


2777.78 


2500 


UNDEPR 


BAL 


18333*3 
333.333 


16666*7 
666.667 


17222.2 
555.556 


17500 


1970 


1 


500 


1970 


2 


333.333 


666*667 


555.556 


500 


1970 


3 


333.333 


666.667 


555.556 


500 


1970 


4 


333.333 


666.667 


555.556 


500 


1970 


5 


333.333 


666*667 


555.556 


500 


1970 


6 


333.333 


666*667 


555.556 


500 


1970 


7 


333.333 


666.667 


555.556 


500 


1970 


8 


333*333 


400 


444*444 


350 


1970 


9 


333*333 


400 


444.444 


350 


1970 


10 


333.333 


400 


444.444 


350 


1970 


11 


333.333 


400 


444.444 


350 


1970 


12 


333.333 


400 


444*444 


350 


TOTAL 


1970 


4000. 


6666.67 


611 1*1 1 


5250 


CUM DEPR 


5666.67 


10000 


8888*89 


7750 


UNDEPR 


BAL 


14333.3 


10000 


11111*1 


12250 
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1971 




1 


333.333 


1971 




2 


333.333 


1971 




3 


333.333 


1971 




4 


333.333 


1971 




5 


333.333 


1971 




6 


333*333 


1971 




7 


333*333 


1971 




8 


333*333 


1971 




9 


333.333 


1971 




10 


333.333 


1971 




11 


333.333 


1971 




12 


333.333 


TOTAL 


1971 


4000* 


CUM DEPR 




9666.67 


UNDEPR 


BA 


L 
1 


10333*3 


1972 




333.333 


1972 




2 


333.333 


1972 




3 


333.333 


1972 




4 


333.333 


1972 




5 


333.333 


1972 




6 


333.333 


1972 




7 


333*333 


1972 




8 


333.333 


1972 




9 


333.333 


1972 




10 


333.333 


1972 




11 


333.333 


1972 




12 


333.333 


TOTAL 


1972 


4000* 


CUM DEPR 




13666.7 


UNDEPR 


BA 


L 
1 


6333*33 


1973 




333.333 


1973 




2 


333.333 


1973 




3 


333.333 


1973 




4 


333*333 


1973 




5 


333*333 


1973 




6 


333.333 


1973 




7 


333*333 


1973 




8 


333*333 


1973 




9 


333*333 


1973 




10 


333*333 


1973 




1 1 


333*333 


1973 




12 


333*333 


TOTAL 


1973 


4000* 


CUM DEPR 




17666*7 


UNDEPR 


BA 


L 
1 


2333*33 


1974 




333*333 


1974 




2 


333*333 


1974 




3 


333*333 


1974 




4 


333*333 


1974 




5 


333*333 


1974 




6 


333*333 


1974 




7 


333*333 


1974 




8 





1974 




9 





1974 




10 





1974 




11 





1974 




12 





TOTAL 


1974 


2333*33 


CUM DEPR 




20000 


UNDEPR 


BAL 






400 
400 
400 
400 
400 
400 
400 
200 
200 
200 
200 
200 

3800 

13800 

6200 

200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 

2400 

16200 

3800 

200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 

2400 

18600 

1400 

200 

200 

200 

200 

200 

200 

200 











1400 

20000 





444.444 
444*444 
444.444 
444.444 
444.444 
444.444 
444.444 
333.333 
333.333 
333.333 
333.333 
333.333 

4777.78 

13666.7 

6333.33 

333.333 
333.333 
333.333 
333.333 
333.333 
333.333 
333.333 
222.222 
222.222 
222.222 
222.222 
222.222 

3444.44 

17111.1 

2888.89 

222.222 
222.222 
222.222 
222.222 
222.222 
222.222 
222.222 
111 
1 11 
111 
111 
1 11 

2111.11 

19222.2 

777.781 



350 
3 50 
350 
350 
350 
350 
350 
245 
245 
245 
245 
245 

3675 

11425 

8575 

245 

245 

245 

245 

245 

245 

245 

171.5 

171 .5 

171 .5 

171.5 

171 .5 

2572.5 

13997.5 

6002.5 



171 
171 
171 
171 
171 
171 
171 
120 



>5 
.5 
.5 
.5 
.5 
.5 
.5 
.05 









777.778 

20000. 





120.05 
120.05 
120.05 
120.05 

1800.75 

15798.2 

4201 .75 

120.05 

120*05 

120.05 

120.05 

120.05 

120.05 

120.05 











840*35 

16638*6 

3361 *4 
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THE PRESENT VALUE OF THE DEPRECIATION AT THE BEGINNING OF 1969 
AT .15 IS AS FOLLOWS: 

13408.6 14729.5 14647.5 12219.2 

********************************************************************* 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM ISA&lv 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



DISCOUNTED RETURN ON INVESTMENT AND PAYBACK 



DROIPB 
36179 



DROIPB is a BASIC language program for calculating Discounted Return on 
Investment and PayBack. 

1. The program will first ask for INITial INVestment, which you should 
enter without commas between thousands and hundreds (because commas 
are input delimiters), followed by carriage return. Then you will 
be asked to type in LIFE of the investment, which you should also 
follow by carriage return. 

2. After initial investment and life, you will be asked for CAPital 
COST and DEPReciable LIFE (YRS) in separate queries. The CAP COST 
query is repeated, allowing you to enter the total investment in 
smaller parts, each with its own depreciable life. When you've 
typed in the last CAP COST and DEPR LIFE you wish to enter, type a 
zero in response to the CAP COST query to continue with the remainder 
of the program. 

NOTE: Do not enter a depreciable life greater than the useful 
LIFE typed in answer to the second query. 

3. The program next lists three choices of depreciation method and 
'asks' you which method you want to use in figuring return on 
investment and payback. For straight line depreciation, you would 
type in a '1', .as in the Program Use Example. For double declining 
balance to straight line depreciation, you would type a '2', and for 
sum-of-years digits depreciation, you would type a '3'. 

4. The next step is entry of cash flow figures for each year of the 
investment's useful LIFE. As with all the other queries, your 
answers must be followed by carriage return. 

5. After you type in your answer to the TAX RATE %1 query and 
carriage return, the program prints out interim calculations of 
depreciation, taxable income, taxes, and cash flow after tax. If 
you are using depreciation method 2 or 3, depreciation may be 
greater than first or even second year cash flow. When that is true, 
the DROIPB program lists a negative taxable income for the investment 
and adds the reduction in taxes to cash flow after taxes. When the 
investment is recovered, the program types out years to payback and 
rate or return, as shown in the example. If the investment is not 
recovered, the program tells you so, along with other information. 



Ted Proske 

Hewlett-Packard/Automatic Measurements Division 
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RUN 



RUN 
DROIPB 

* DISCOUNTED RETURN ON INV * 

INIT INV $:?129876.80 
LIFE (YRS)«?7 
CAP COST $ J? 120200 
DEPR LIFE <YRS>*?5 
CAP COST $:?9676.7-80 
DEPR LIFE <YRS):?1 
CAP COST $:?0 

DEPR METHODS I 1. STRT LINE, 2. DBL DECL BAL TO STRT LINE, 
3. SUM OF YRS DIGITS. *** USE METHOD NO.:?l 



CASH FLOW 
YEAR 1 
YEAR 2 
YEAR 
YEAR 
YEAR 
YEAR 
YEAR 



7125314.56 
7150377.47 
7169174.66 
? 169174.66 
7169174.66 
7 169174.66 
7 169174.66 



TAX RATE X752 



CASH FLOW 


DEPR 


TAXABLE 
INCOME 


TAXES 


CASH FLOW 
AFTER TAX 


125315. 


33716.8 


91597.8 


47630.8 


77683.7 


150377. 


24040 


126337. 


65695.5 


84682. 


169175. 


24040 


145135. 


75470. 


93704.6 


169175. 


24040 


145135. 


75470. 


93704.6 


169175. 


24040 


145135. 


75470. 


93704.6 


169175. 





169175. 


87970.8 


81203.8 


169175. 





169175. 


87 97 0.8 


81203.8 



YEARS TO PAY BACK = 1.61634 
RATE OF RETURN = 62.8425 % 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JtSXXl^Xv^ 

EQUITY 
36083 



COST OF EQUITY CAPITAL 



EQUITY computes the cost of equity capital by computing the dividends and 
the share price for future periods, and finds the discount rate by equating 
the present value of the stream to the current share price. 



The user must enter the following values: 

P = current price per share 

D(I) = current dividend per share 

N = number of growth segments (each segment is assumed to have a 

different growth rate, and may cover one or more periods). 

G(I) = for each segment the growth rate in decimal 

L(I) = for each segment the last period covered by the growth rate 

of that segment 



1. 20 growth segments, and 100 periods 

To increase, change dim-statements in lines 9105 and 9110 

2. 100 iterations on the search and compare routine 



EQUITY, page 2 



RUN 

GET-SEQUITY 

RUN 

EQUITY 

* COST OF EQUITY CAPITAL * 

THIS PROGRAM WILL COMPUTE THE COST OF EQUITY CAPITAL BY COMPUTING DIVI- 
DENDS AND THE SHARE PRICE FOR FUTURE PERIODS* (BASED ON THE GORDON 
MODEL), AND THEN FIND THE DISCOUNT RATE BY EQUATING THE PRESENT VALUE 
OF THE STREAM TO THE CURRENT SHARE PRICE. 

PLEASE ENTER THE CURRENT PRICE/SHARE, AND DIVIDEND/SHARE? 1 -00,10 
HOW MANY GROWTH SEGMENTS ARE THERE? 8 

FOR EACH GROWTH SEGMENT, ENTER THE GROWTH RATE IN DECIMAL, * THE LAST 

EFFECTIVE PERIOD FOR 

STOP 

RUN 

EQUITY 

* COST OF EQUITY CAPITAL * 

THIS PROGRAM WILL COMPUTE THE COST OF EQUITY CAPITAL BY COMPUTING DIVI- 
DENDS AND THE SHARE PRICE FOR FUTURE PERIODS, (BASED ON THE GORDON 
MODEL), AND THEN FIND THE DISCOUNT RATE BY EQUATING THE PRESENT VALUE 
OF THE STREAM TO THE CURRENT SHARE PRICE. 

PLEASE ENTER THE CURRENT PRICE/SHARE, AND DIVIDEND/SHARE? 1 00, 1 
HOW MANY GROWTH SEGMENTS ARE THERE? 8 

FOR EACH GROWTH SEGMENT, ENTER THE GROWTH RATE IN DECIMAL, 4 THE LAST 

EFFECTIVE PERIOD FOR EACH SEGMENT. 

SEGMENT 1 7.02, 2 

SEGMENT 2 ?.03,4 

SEGMENT 3 7.04,6 

SEGMENT 4 ?.05,10 

SEGMENT 5 7.06,12 

SEGMENT 6 ?.07,15 

SEGMENT 7 ?. 08,20 

SEGMENT 8 7. 10,25 

************************************************************************ 

A SHARE PRICE OF $ 100 , DIVIDEND OF $ 10 , AND INITIAL GROWTH 
RATE OF 2 X, YIELD A COST OF EQUITY CAPITAL OF 15.74 PERCENT. 



DO YOU WISH TO RUN SOME DIFFERENT DATA? 

ENTER *0' FOR ALL NEW INFORMATION. 

ENTER 'l* FOR SAME SHARE PRICE * DIVIDEND, NEW GROWTH RATES OR PERIODS. 

ENTER '2* FOR SAME GROWTH RATES & PERIODS, NEW SHARE PRICE OR DIVIDEND. 

ENTER '3* TO TERMINATE. ?2 

PLEASE ENTER THE CURRENT PRICE/SHARE, AND D I VIDEND/SHARE? 1 00, 5 



A SHARE PRICE OF $ 100 , DIVIDEND OF $ 5 , AND INITIAL GROWTH 
RATE OF 2 X, YIELD A COST OF EQUITY CAPITAL OF 12.45 PERCENT. 



DO YOU WISH TO RUN SOME DIFFERENT DATA? 

ENTER •«• FOR ALL NEW INFORMATION. 

ENTER M* FOR SAME SHARE PRICE & DIVIDEND, NEW GROWTH RATES OR PERIODS. 

ENTER '2 f FOR SAME GROWTH RATES A PERIODS, NEW SHARE PRICE OR DIVIDEND. 

ENTER ^ TO TERMINATE. ?3 

♦ ♦♦♦♦♦♦♦♦♦♦♦■It******************************************************* 
DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DAulv 

EXDRSK 
36084 



EXTENDED RISK ANALYSIS 



Dependent upon a number of estimates, EXDRSK performs an extended risk 
analysis, determining the advantages or disadvantages involved in making 
certain financial investments. The output is in the form of the average 
cash flows per future period, the expected payback period, the expected 
rate of return, and the probability of various rates of return. 



In order to determine the potential risk involved in making a given invest- 
ment, some estimates of expenditures are needed for future periods. Eight 
factors are considered: 

1 . Investment amount 

2. Market Size (units) 

3. Selling price/unit 

4. Share of market 

5. Variable costs ($/unit) 

6. Fixed cost ($/period) 

7. Useful life (periods) 

8. Residual value 

For each factor you will be asked to give 3 estimates. The first is the 
value which you think the factor has only one chance in ten of falling 
below -- that is, a low guess. The second estimate should be that which 
you believe to be the most likely. The third is that which you figure the 
factor has only one chance in ten of exceeding. 

Thus the estimates should be typed: '*FACT0R X: low, most likely, high'. 
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RUN 

GET-EXDRSK 

RUN 

EXDRSK 

* EXTENDED RISK ANALYSIS * 
DEFINITION OF FACTORS 

NUMBER FACTOR 

1 INVESTMENT 

2 MARKET SIZE (UNITS) 

3 SELLING PRICE PER UNIT 

4 SHARE OF MARKET 

5 VARIABLE COSTS <$/UNIT> 

6 FIXED COST <$/PERIOD) 

7 USEFUL LIFE (PERIODS) 

8 RESIDUAL VALUE 

IF PRICE* SALES AND OPERATING COSTS ARE INTERDEPENDENT 
TYPE 1* OTHERWISE* TYPE 0? 1 

DO YOU NEED INPUT INSTRUCTIONS? (Y OR N)?Y 



FOR EACH FACTOR YOU WILL BE ASKED TO GIVE 3 ESTIMATES. THE FIRST 
IS THE VALUE WHICH YOU THINK THE FACTOR HAS ONLY ONE CHANCE IN TEN OF 
FALLING BELOW -- THAT IS* A LOW GUESS. THE SECOND ESTIMATE SHOULD BE 
THAT WHICH YOU BELIEVE TO BE THE MOST LIKELY. THE THIRD IS THAT 
WHICH YOU FIGURE THE FACTOR HAS ONLY ONE CHANCE IN TEN OF EXECEEDING. 

THUS THE ESTIMATES SHOULD BE TYPED: •* FACTOR X: LOW*MOST LIKELY*HIGH» 



ENTER ESTIMATES 


FOR: 


* 


FACTOR 1 




: 






PERIOD 


1 




76000*10000*13000 




PERIOD 


3 




710000*15000* 18000 




PERIOD 


5 




7 1000*3000*5000 




PERIOD 


7 




?0* 1000*3000 


* 


FACTOR 2 


. 


: 






PERIOD 


1 




70*0*0 




PERIOD 


3 




70*500*750 




PERIOD 


5 




7500*3500*4000 




PERIOD 


7 




72000*5000*6500 


* 


FACTOR 3 




: 






PERIOD 


1 




70*0*0 




PERIOD 


3 




75*75*100 




PERIOD 


5 




750*50*50 




PERIOD 


7 




750*50*50 


* 


FACTOR 4 




: 






PERIOD 


1 




70*0*0 




PERIOD 


3 




7. 05*. 075*. 10 




PERIOD 


5 




7.075*. 10*. 15 




PERIOD 


7 




7.10*. 15*. 25 


* 


FACTOR 5 




: 






PERIOD 


1 




750*75*100 




PERIOD 


3 




740*70*90 




PERIOD 


5 




730*40*50 




PERIOD 


7 




720*25*30 


* 


FACTOR 6 




t 






PERIOD 


1 




71000*1500*2000 




PERIOD 


3 




71000*1500*2000 




PERIOD 


5 




7500*750*1000 




PERIOD 


7 




7450*700*850 


* 


FACTOR 7 




:?15*20*25 


* 


FACTOR 8 




t ?0.*0*0 



SIMULATION ITERATIONS FOLLOW. AFTER EACH INTERNAL ITERATION 
A •-• WILL BE PRINTED. USUALLY 20 ITERATIONS ARE NECESSARY. 
PLEASE BE PATIENT! 
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*********************************************************************** 



AVERAGE 


CASH FLOWS 


PERIOD 


1 


-11010.1 


PERIOD 


2 


-1997.07 


PERIOD 


3 


-16100.5 


PERIOD 


4 


-1557.01 


PERIOD 


5 


-684.212 


PERIOD 


6 


10012*9 


PERIOD 


7 


25352.7 


PERIOD 


8 


23504.1 


PERIOD 


9 


21835.8 


PERIOD 


10 


22715.5 


PERIOD 


11 


24369.5 


PERIOD 


12 


29071.9 


PERIOD 


13 


21144* 


PERIOD 


14 


19676.4 


PERIOD 


15 


23934.7 



— 20 



SIMULATIONS 



EXPECTED PAYBACK PERIOD BETWEEN 1 



AND 2 



PERIODS. 



EXPECTED RATE OF RETURN .29209 

RATE OF RETURN PROBABILITY 







■ 15 

>1 

.05 

3 

.05 

.1 

.15 

.2 

.25 

-3 



.15 
.85 



TYPE 1 IF YOU WANT AVERAGE VALUES PRINTED FOR FACTORS 1-6J OTHERWISE 0? 1 
FACTOR AVERAGE VALUE PERIOD 



9526*49 


1 





2 


14255.5 


3 





4 


3056.95 


5 





6 


1487.59 


7 


1285.99 


8 


1140*59 


9 


1013*91 


10 


1621.54 


11 


1479.5 


12 


1193*32 


13 


1424*61 


14 


1361.03 


15 





1 


248*333 


2 


469*456 


3 


1617.31 


4 
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2 


2448.23 


5 


2 


3325.08 


6 


2 


4856.89 


7 


2 


4430.28 


8 


2 


4264.9 


9 


2 


441 1.69 


10 


2 


4721.97 


11 


2 


5083.49 


12 


2 


4412.26 


13 


2 


4157.02 


14 


2 


4758.68 


15 


3 





1 


3 


29.5523 


2 


3 


59.4255 


3 


3 


52.0968 


4 


3 


50 


5 


3 


50 


6 


3 


50 


7 


3 


50 


8 


3 


50 


9 


3 


50 


10 


3 


50 


1 1 


3 


50 


12 


3 


50 


13 


3 


50 


14 


3 


50 


15 


4 





1 


A 


4.75013E-02 


2 


A 


9.48336E-02 


3 


A 


. 119901 


4 


A 


. 137695 


5 


A 


. 185985 


6 


A 


.229494 


7 


A 


.226453 


8 


A 


.227589 


9 


A 


.21975 


10 


A 


.229688 


11 


A 


.231371 


12 


A 


."222942 


13 


A 


•211108 


14 


A 


.227492 


15 


5 


77.7686 


1 


5 


70.9821 


2 


5 


66.9793 


3 


5 


50.8399 


4 


5 


40.5705 


5 


5 


32.5466 


6 


5 


25.3845 


7 


5 


24.455 


8 


5 


25.2716 


9 


5 


25.3307 


10 


5 


25.204 


11 


5 


23. 1036 


12 


5 


25.7729 


13 


5 


25.0214 


14 


5 


25.9379 


15 


6 


1483.62 


1 


6 


1525.26 


2 


6 


1369.7 


3 


6 


1091.37 


4 


6 


761.521 


5 


6 


761.268 


6 


6 


682-592 


7 


6 


650.594 


8 


6 


616.5 


9 


6 


646.957 


10 


6 


668.708 


11 


6 


685.373 


12 


6 


696.134 


13 


6 


648.356 


14 


6 


693.68 


15 


**************#***♦***#************************************************ 


DONE 







BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM JDA&Iv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



BUDGET EXPENDITURES VS TARGETS MONITOR 



EXPEND 
36111 



This program can be used to create, update or list budgetary data. 
Expenditure vs targets can be continuously monitored. Up to 15 files 
can be handled, each with up to 20 accounts or major items. Each file 
represents one location code in the Hewlett-Packard accounting system, 
although a code for major programs, projects, etc., could easily be 
substituted. Under each location code the account numbers and/or major 
projects are listed, one per record. For each entry, the program lists 
the record number, name, dollars expended, and dollars targeted. For 
each location code, the program also lists the total targeted and total 
expended. NOTE: This program creates its own data base. 



Load the program. 



0PEN-FL1 ,20 

0PEN-FL2,20 



0PEN-FL15,20 
0PEN-FL16,48 



Before running the first time (or to clear all the files at the beginning 
of a new period) enter the following: 



9 
RUN 



LET Z = 

PRINT # 16, 16; Z 

STOP 



When the program stops, delete the three statements you executed. The 
purpose of this exercise is to ensure that all of the files have been 
cleared of old data. 

Records can be any combination of account numbers and major items 
(projects). The example shown illustrates major items accumulated under 
account numbers; hence, the figures for the account numbers are in 
effect subtotals. Data could just as easily be listed the other way; 
i.e., with various account numbers subtotalled under a major item. 
The program is self-instructional for generating, updating, and listing 
data. 



To prevent double entry of items when listing subtotals use minus signs 
(the program ignores all figures preceded by a minus sign). 



Jack Peters 

HP, Data Systems Division 
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RUN 



OPE-FL1,20 
£' OPE-FL2*20 
?~ pPE-FL3*20 
OPE-FL4*20 
OPE-FL5,20 
OPE-FL6*20 
OPEE-N 
OPE-FL7*20 
OPE-FL8^20 
OPE-FL9..20 
OPE-FL10,20 
OPE-FL11,20 
0PE-FL12,20 
OPE-FL13,20 
OPE-FLM^-20 
OPE-FL15,20 
0PE-FL16,48 

7 LET Z=0 

8 PRINT #16*1 1-6;Z 

9 STOP 

RUN 
EXPEND 



DONE 
7 
8 
9 



RUN 
EXPEND 

DO YOU WISH INSTRUCTIONS7YES 

THIS PROGRAM CAN BE USED TO CREATE, UPDATE, OR LIST 

BUDGETARY DATA SO AS TO PERMIT CONTINUOUS MONITORING 

OF EXPENDITURES VS TARGETS. NOTE THAT THE PROGRAM CAN 

HANDLE UP TO 15 LOCATION CODES WITH 20 ACCOUNTS AND/ 

OR MAJOR ITEMS PER LOCATION CODE. 

THE NAME OF EACH RECORD CAN BE UP TO 32 CHARACTERS 

INCLUDING SPACES. EACH RECORD ALSO INCLUDES $ 

EXPENDED AND S TARGETED (UP TO 8 DIGITS) 

DO YOU WISH TO 'GENERATE'NEW FILES(S).. 'UPDATE' 

EXISTING FILES' OR 'LIST 1 DATA? 

? GENERATE 

DO YOU NEED THE FILE NO. LIST? 

?YES 

FILE NO. NAME 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

THERE ARE 15 FILES AVAILABLE 

HOW MANY NEW FILES? 1 

INPUT THE NUMBER OF AN AVAILABLE FILE72 

INPUT NEW FILE NAME 

?FLIP 

HOW MANY RECORDS (ONE PER ACCOUNT OR NAME) DO YOU REQUIRE? 1 

INPUT YOUR BUDETARY DATA 

NAME OR ACCOUNT NUMBER 
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$ EXPENDED 

$ TARGETED 

ENTER RECORD NO. 1 

7PRINTING 

? ?1000 

??3000 

ENTER DATE? 7/25/73 

7/25/73 

FINISHED7NO 

DO YOU WISH TO 'GENERATE' NEW FILES <S>, 'UPDATE' 

EXISTING FILES* "OR 'LIST 1 DATA? 

7 GENERATE 

DO YOU NEED THE FILE NO. LIST? 

7 YES 

FILE NO. NAME 

1 FLIP 

2 FLIP 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

THERE ARE 14 FILES AVAILABLE 

HOW MANY NEW FILES 7 1 

INPUT THE NUMBER OF AN AVAILABLE FILE? 3 

INPUT NEW FILE NAME 

7FLIP1 

HOW MANY RECORDS (ONE PER ACCOUNT OR NAME) DO YOU REQUIRE? 10 

INPUT YOUR BUDETARY DATA 

NAME OR ACCOUNT NUMBER 

S EXPENDED 

S TARGETED 

ENTER RECORD NO. 1 

? LABOR 

7 7 500 

77400 

ENTER RECORD NO. 2 

7SHIPPING 

77 300 

77350 

ENTER RECORD NO. 3 

? POSTAGE 

77250 
77300 

ENTER RECORD NO. 4 
7 ORDER PROCESSING 
77600 
77500 

ENTER RECORD NO. 5 
7 TRAVEL 
771245 
77500 

ENTER RECORD NO. 6 
7 TRADE SHOWS 
770 
770 

ENTER RECORD NO. 7 
7 CLERICAL 
77279 
77200 

ENTER RECORD NO. 8 
7FACILITIES 
772500 
7 72500 

ENTER RECORD NO. 9 
7 MARKETING 
772990 
7 72000 
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ENTER RECORD NO. 

? ADVERT I SING 

??350 

??300 

ENTER DATE77/27/73 

7/27/73 



10 



FINISHED7NO 

DO YOU WISH TO ' GENERATE' NEW FILES (S)/ 'UPDATE* 

EXISTING FILES, OR 'LIST' DATA? 

? UPDATE 

DO YOU NEED THE FILE NO. LIST? 

?NO 

INPUT THE NO. OF THE FILE TO BE CHANGED? 1 

DO YOU WISH TO DELETE THIS FILE7NO 

DO YOU WANT DATA LISTED FOR THIS FILE?YES 

DATA FOR FLIP TOTAL TARGETED $ 3000 



RECORD 
1 



NAME 
PRINTING 



EXPENDED TARGETED 
1000 3000 



TOTAL EXPENDED $ 1000 

DO YOU WISH TO UPDATE EXPENDITURES7N-YES 

INPUT RECORD NO.? 1 

HOW MANY NEW EXPENDITURES? 1 

NEXT EXPENDITURE 7 1400 

MORE EXPENDITURES TO BE UPDATED7NO 

DO YOU WISH TO ADD RECORDS7NO 

DO YOU WISH TO CHANGE ANY OTHER RECORDS7NO 

DO YOU WISH TO CHANGE ANY OTHER FILE7NO 

ENTER DATE77/27/73 

7/27/73 

DO YOU WANT ANY LISTING7YES 

DO YOU WANT ALL FILES LISTED? YES 

7/27/73 



DATA FOR FLIP TOTAL TARGETED S 3000 



RECORD NAME 

1 PRINTING 



EXPENDED TARGETED 
2400 3000 



TOTAL EXPENDED $ 2400 

DATA FOR FLIP TOTAL TARGETED S 



RECORD NAME 

TOTAL EXPENDED $ 



EXPENDED TARGETED 



DATA FOR FLIPl TOTAL TARGETED $ 7050 



RECORD 
1 


NAME 
LABOR 


2 


SHIPPING 


3 


POSTAGE 


4 


ORDER PROCESSING 


5 


TRAVEL 


6 


TRADE SHOWS 


7 


CLERICAL 


8 


FACILITIES 


9 


MARKETING 


10 


ADVERTISING 


TOTAL EXPENDED $ 9014 


DATA FOR 


TOTAL TARGETED S 



EXPENDED 


TARGETED 


500 


400 


300 


350 


250 


300 


600 


500 


1245 


500 








279 


200 


2500 


2500 


2990 


2000 


350 


300 
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DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 



DATA FOR TOTAL TARGETED $ 

FINISHED7YES 

DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM UAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



EXPONENTIAL SMOOTHING ON PRICE DATA 



EXSM00 
36085 



EXSM00 uses exponential smoothing to forecast data which is thought to 
have a trend and/or seasonal effect. Output is provided per period as 
a comparison between different methods of smoothing. 

S. = Actual demand in month t 

S. = Moving average of S t after month t 

a = Smoothing constant (0.1 - 0.2) 



= C 1 + C 2 * t + C 3 * F t + error 

C-. is the average coefficient 
C2 is the trend coefficient 
C3 is the seasonal coefficient 



S t = S t-1 +a(S t - S^) 

New estimate = Old estimate + a(Actual-01d estimate) 



Straight 



S t = (S t /(F t -L)) + (1 -a) * S t _ ] 

where: F. = 3(S./S7) + (1 -3) * ( F t" L ) for next year^Seasonality 
L = Number of periods in cycle 

You will be asked to input the following data: 

Nl = The number of months (periods) 

N2 = The number of periods to be used for the initialization 

of the forecasting methods 
N3 = The number of periods in the periodicity of the seasonal effect 
Al = The smoothing constant a 

Then the actual values for each period are to be entered. This can be 
done with input or data-statements. 

To enter data internally, begin at line 9900 and enter the actual 
amounts for each period to be considered, and enter "D" in answer to 
the question on how the data is to be entered. 

Also note that the number of periods in the seasonality must be less 
than the number of periods provided for the initialization of the 
forecasting methods. 



As it stands, EXSM00 will handle only up to 8 years (i.e., 72 periods) 
of forecasting. For enlargement change dim-statement 9116 to bounds 
of Nl + 2. 
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RUN 

GET-SEXSMOO 

RUN 

EXSMOO 

* EXPONENTIAL SMOOTHING * 

DO YOU NEED A PROBLEM DESCRIPTION? CV OR 'N') ?N 

FOR HOW MANY PERIODS WILL YOU ENTER DATA730 

HOW MANY OF THESE PERIODS ARE TO BE USED TO INITIALIZE THE FORCASTING 
METHODS? 12 

WHAT IS THE PERIODICITY OF THE SEASONAL EFFECT? E.G. 12 FOR YEARLY. 
NOTE! THIS VALUE MUST BE LESS THAN YOUR ANSWER TO THE PREVIOUS QUESTION. 
?6 

WHAT IS YOUR ALPHA FOR SMOOTHING FORCASTS7.10 

WHAT IS THE ALPHA FOR SMOOTHING THE SEASONAL EFFECT?. 20 

WHAT IS THE ALPHA FOR THE TREND EFFECT?. 15 

DO YOU WISH TO ENTER YOUR DATA FROM THE TELETYPE* OR INTERNALLY WITH 
DATA-STATEMENTS? < *T * FOR TELETYPE* OTHERWISE *D , )?T 

WHAT IS THE VALUE FOR THE FIRST PERIOD? 100 

SECOND PERIOD775 

NEXT773 

NEXT? 72 

NEXT770 

NEXT? 60 

NEXT?100 

NEXT790 

NEXT780 

NEXT? 70 

NEXT? 60 

NEXT750 

NEXT7110 

NEXT? 50 

NEXT? 

DONE 

RUN 

EXSMOO 

* EXPONENTIAL SMOOTHING * 

DO YOU NEED A PROBLEM DESCRIPTION? CY' OR *N • ) ?N 

FOR HOW MANY PERIODS WILL YOU ENTER DATA730 

HOW MANY OF THESE PERIODS ARE TO BE USED TO INITIALIZE THE FORCASTING 
METHODS? 12 

WHAT IS THE PERIODICITY OF THE SEASONAL EFFECT? E.G. 12 FOR YEARLY. 
NOTEl THIS VALUE MUST BE LESS THAN YOUR ANSWER TO THE PREVIOUS QUESTION. 
?6 

WHAT IS YOUR ALPHA FOR SMOOTHING FORCASTS7.10 

WHAT IS THE ALPHA FOR SMOOTHING THE SEASONAL EFFECT?. 20 

WHAT IS THE ALPHA FOR THE TREND EFFECT?. 15 

DO YOU WISH TO ENTER YOUR DATA FROM THE TELETYPE* OR INTERNALLY WITH 
DATA-STATEMENTS? ( 'T ' FOR TELETYPE* OTHERWISE 'D*)?T 
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WHAT IS THE VALUE FOR THE FIRST PERIOD? 100 

SECOND PERIOD775 

NEXT? 73 

NEXT? 72 

NEXT? 70 

NEXT? 60 

NEXT? 100 

NEXT790 

NEXT? 80 

NEXT? 70 

NEXT? 60 

NEXT? 50 

NEXT? 110 

NEXT?99 

NEXT? 85 

NEXT780 

NEXT? 75 

NEXT? 70 

NEXT?105 

NEXT? 100 

NEXT?95 

NEXT? 90 

NEXT785 

NEXT? 80 

NEXT? 110 

NEXT? 100 

NEXT? 75 

NEXT ?70 

NEXT765 

NEXT? 60 

*********************************** 41**41*41 it*** ************************* * 



PERIOD 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



SALES 



110 

99 

85 

80 

75 

70 

105 

100 

95 

90 

85 

80 

110 

100 

75 

70 

65 

60 



EXPONENTIAL 


EXPONENTIAL 


EXPONENTIAL 


SMOOTHING 


SMOOTHING 


SMOOTHING 


WITH TREND 


WITH 


WITH 


AND SEASONALS 


TREND 


SEASONALS 


99.9594 


68*1002 


98.8338 


83*5456 


78.074 


77.6086 


79.0011 


83.4328 


75.9716 


74.0594 


84.2659 


74.0971 


68.5953 


83*6642 


71 .1631 


58*9741 


81.8989 


61 .2091 


112.645 


79.195 


108.98 


94.6555 


85.7386 


86*6389 


87.2416 


89.7833 


81 .6393 


82.4296 


91.7808 


79.4361 


77.0604 


92.1072 


76*3484 


67.777 


91.0753 


67.093 


124.38 


88.9447 


116.274 


106.881 


94.6806 


95*4287 


98.174 


96.7984 


89.123 


89.6729 


92*2166 


83.532 


80.919 


87.2032 


77.6849 


69*2686 


81.8599 


67.2988 



MEAN ABSOLUTE DEVIATION! 



10*7023 



14*9401 



10*0792 



THEIL'S 'U* SQUARED! 

•356144 .839939 .308655 

********************************************************************** 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DAuIL 
CALCULATES PRESENT VALUE - STREAM OF CASH FLOWS 



FINFLO 
36711 



This program calculates the present value of a stream of cash flows. The 
assumption is made that the flows occur at the end of each of the periods 
after the initial period when the investment is made. Each period is de- 
fined as one year unless the cost of capital percentage and number of 
periods are adjusted accordingly. This program will calculate all rates 
of return between zero and one hundred percent which equate the P.V. to 
the initial investment. 



Enter figures as requested in program. 



Babson College 

Babson Park, Massachusetts 
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RUN 

RUN 
FINFLO 

DO YOU WANT INSTRUCTI ONS7YES 

THIS PROGRAM CALCULATES THE PRESENT VALUE OF A STREAM OF CASH 
FLOWS. THE ASSUMPTION IS MADE THAT THE FLOWS OCCUR AT THE END 
OF EACH OF THE PERIODS AFTER THE INITIAL PERIOD WHEN THE INVESTMENT 
IS MADE. EACH PERIOD IS DEFINED AS ONE YEAR UNLESS THE COST OF 
CAPITAL PERCENTAGE AND NUMBER OF PERIODS ARE ADJUSTED ACCORDINGLY. 
THIS PROGRAM WILL CALCULATE ALL RATES OF RETURN BETWEEN ZERO AND 
ONE HUNDRED PERCENT WHICH EQUATE THE P.V. TO THE INITIAL INVESTMENT. 

WHAT IS THE INITIAL INVESTMENT IN PERIOD 0710000 

THIS PROGRAM ASSUMES AN INITIAL OUTLAY FOR THE INVESTMENT 

THE SIGN HAS BEEN CHANGED TO REFLECT THIS CONDITION 

FOR HOW MANY PERIODS DO YOU WISH TO ENTER CASH FLOWS, PERIOD 1 ON74 



PERIOD 


# 


CASH FLOW 


******** 


********* 


1 




7200 


2 




74500 


3 




76000 


4 




75700 



ENTER COST OF CAPITAL IN PERCENT711 



DO YOU WANT A LISTING OF THE P.V. IN EACH PERIOD7YES 



PERIOD 


P.V. 


******** 


******** 


1 


180.18 


2 


3652.3 


3 


4387.15 


4 


3754.77 



NET PRESENT VALUE OF ALL FLOWS IS $ 1974.4 



THE CALCULATED RATES OF RETURN BETWEEN QX AND 100X ARE: 
17.9799 XTHE P.V. AT THIS RATE OF RETURN IS $ 9998.12 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM Jjii^lv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



RATING INVESTMENT FUNDS 



GCHLIT 

36503 



This program performs an analysis of the type advocated by Treynor in 
"How to Rate Management of Investment Funds," ( Harvard Business Review , 
January-February 1965). Basically, it fits a least-squares regression 
line to data on the quarterly rates of return for two entities. Possi- 
bilities include: mutual funds, individual stocks, indices of stock 
returns, and portfolios. 



Three data bases can be used with the program. The GPDQI file gives price 
and dividend data on 98 industrial indices compiled by Standard and Poor's. 
The GPDQF file contains comparable information on 100 open-end mutual funds. 
The GPDQS file contains information on the 30 stocks used to compute Dow- 
Jones' 30 Industrial Stock Average. Any of these files may be invoked by 
simply responding appropriately when asked. The particular entry desired 
must be indicated by number. For listings, see the descriptions of the 
GPDQ files. 

If the user chooses a portfolio for analysis, the program will read a file 
named PDQP in the user's own account. The user-specified number will indi- 
cate the record to be read by the program. The record must follow the for- 
mat used in GPDQF, GPDQI and GPDQS. 

The user may opt to have the treasury bill rate subtracted from each return 
before the remainder of the analysis is performed. This will provide an 
analysis of excess returns -- i.e., returns over and above the pure interest 
rate for the quarter in question. 

Any period may be requested. The program will utilize only quarters for 
which the requisite data are available. 

(continued on Page 2) 



Following a summary of relevant statistics and the information about the 
regression line, the program provides a scatter diagram of the results. 
An asterisk represents one point, the digit "2", two points, etc. An 
approximate regression line may be drawn from the letter "L" through the 
intersection of the two M's (as illustrated on the sample run). 

The program also computes and prints the "differential return" for each 
quarter. This is the difference between the actual y-value and the product 
of the x-value and the slope of the regression line. A rough graphic plot 
is also provided. The asterisks may be connected to obtain a time-plot (as 
illustrated on the sample run). 



Graduate School of Business 
Stanford University 
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INSTRUCTIONS : (continued) 
GPDQF 

GPDQF is a file of data on quarterly prices and dividends paid by 100 open-end mutual funds. The 
funds were chosen randomly from those for which data were readily available for the period 1965-1970. 
For each quarter, the following information is given: 

"opening price" 

- net asset value per share as of the close of the market on the last trading 
day of the previous quarter. 

"dividends" 

- all dividends received by an investor who held one share at the beginning of 
the quarter; any other distributions that qualify as income are also included. 

"ending price" 

- the total value of the holdings of an investor who held one share at the beginning 
of the quarter. This includes the net asset value of the share (or shares, in the 

case of splits) at the close of the market on the last trading day of the quarter. It 
also includes the value of any distributions received during the quarter that qualify 
as capital gains. 

Each fund is allocated one record on the file. Fund number 1 is on record 1; fund number 2 on record 
2, etc. Each record contains 40 quarters of information, as follows: 

opening price 1st quarter of 1st year 

dividends 1st quarter of 1st year 

closing price 1st quarter of 1st year 

opening price 2nd quarter of 1st year 

dividends 2nd quarter of 1st year 

closing price 2nd quarter of 1st year 

etc. 

Any missing value is represented by -999. 

Following the 120 data values on each record are: 

- the first year for which data are given (e.g. 1963) 

- the name of the fund (up to 20 characters) 

This file uses the same format as GPDQI and GPDQS. The funds are listed as follows: 



1 ABERDEEN FUND 

2 AFFILIATED FUND INC. 

3 AMERICAN BUSINESS SHARES INC. 

4 AMERICAN INVESTORS FUND INC. 

5 AMERICAN MUTUAL FUND INC. 

6 ANCHOR - FUNDAMENTAL INVESTORS 

7 ANCHOR - GROWTH FUND 

8 ASSOCIATED FUND TRUST 

9 AXE-HOUGHTON FUND A INC. 

10 AXE-HOUGHTON FUND B INC. 

11 AXE-HOUGHTON STOCK FUND INC. 

12 AXE SCIENCE CORP. 

13 BOSTON FUND INC. 

14 BROAD STREET INVESTING CORP. 

15 BULLOCK FUND LTD. 

16 CENTURY SHARES TRUST 

17 CHASE FUND OF BOSTON 

18 CHASE SHAREHOLDERS TRUST OF BOSTON 

19 CHEMICAL FUND INC. 

20 COLONIAL FUND INC. 

21 AMERICAN EXPRESS INCOME FUND INC. 

22 AMERICAN EXPRESS INVESTMENT FUND INC. 

23 AMERICAN EXPRESS STOCK FUND INC. 

24 COMPOSITE BOND AND STOCK FUND 

25 COMPOSITE FUND INC. 
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26 CONCORD FUND INC. 

27 DE VEGH MUTUAL FUND INC. 

28 DELAWARE FUND INC. 

29 BULLOCK -- DIVIDEND SHARES INC. 

30 DREYFUS FUND INC. 

31 ENERGY FUND INC. 

32 EQUITY FUND INC. 

33 FIDELITY CAPITAL FUND INC. 

34 FIDELITY FUND INC. 

35 FINANCIAL INDUSTRIAL FUND 

36 FLORIDA GROWTH FUND INC. 

37 FOUNDERS MUTUAL FUND 

38 GROUP SECURITIES INC. -- COMMON STOCK FUND 

39 GROWTH INDUSTRY SHARES INC. 

40 GUARDIAN MUTUAL FUND INC. 

41 HAMILTON FUNDS INC. — SERIES HDA 

42 INCOME FUND OF BOSTON INC. 

43 INVESTMENT COMPANY OF AMERICA 

44 INVESTMENT TRUST OF BOSTON 

45 INVESTORS RESEARCH FUND INC. 

46 ISTEL FUND INC. 

47 JOHNSTON MUTUAL FUND INC. 

48 KEYSTONE CUSTODIAN FUND B-l 

49 KEYSTONE CUSTODIAN FUND B-2 

50 KEYSTONE CUSTODIAN FUND B-4 

51 KEYSTONE CUSTODIAN FUND K-l 

52 KEYSTONE CUSTODIAN FUND K-2 

53 KEYSTONE CUSTODIAN FUND S-l 

54 KEYSTONE CUSTODIAN FUND S-2 

55 KEYSTONE CUSTODIAN FUND S-3 

56 KEYSTONE CUSTODIAN FUND S-4 

57 KNICKERBOCKER FUND 

58 KNICKERBOCKER GROWTH FUND INC. 

59 LIFE INSURANCE INVESTORS INC. 

60 LOOMIS-SAYLES MUTUAL FUND 

61 MAGNA INCOME TRUST 

62 MASSACHUSETTS INVESTORS GROWTH STOCK FUND 

63 MASSACHUSETTS INVESTORS TRUST 

64 MUTUAL SHARES CORP. 

65 MUTUAL TRUST 

66 NATIONAL INVESTORS CORP. 

67 NATIONAL SECURITIES SERIES - BALANCE SERIES 

68 NATIONAL SECURITIES SERIES — BOND SERIES 

69 NATIONAL SECURITIES SERIES — DIVIDEND SERIES 

70 NATIONAL SECURITIES SERIES — PREFERRED STOCK SERIES 

71 NATIONAL SECURITIES SERIES — INCOME SERIES 

72 NATIONAL SECURITIES SERIES -- STOCK SERIES 

73 NATIONAL SECURITIES SERIES -- GROWTH STOCK SERIES 

74 ONE WILLIAM STREET FUND INC. 

75 OPPENHEIMER FUND INC. 

76 PENN SQUARE MUTUAL FUND 

77 PHILADELPHIA FUND INC. 

78 PINE STREET FUND INC. 

79 PIONEER FUND INC. 

80 PRICE (T. ROWE) GROWTH STOCK FUND 

81 PURITAN FUND INC. 

82 PUTNAM (GEORGE) FUND 

83 PUTNAM GROWTH FUND 

84 SCUDDER STEVENS AND CLARK - BALANCED FUND 

85 SCUDDER STEVENS AND CLARK - COMMON STOCK FUND 

86 SIGMA INVESTMENT SHARES 

87 SIGMA TRUST SHARES 

88 SOUTHWESTERN INVESTORS INC. 

89 SOVEREIGN INVESTORS INC. 

90 STEIN ROE AND FARNHAM - BALANCED FUND 

91 STEIN ROE AND FARHNAME - STOCK FUND 

92 TWENTIETH CENTURY GROWTH INVESTORS 

93 VALUE LINE FUND INC. 

94 VALUE LINE INCOME FUND INC. 

95 VALUE LINE SPECIAL SITUATIONS FUND 

96 WALL STREET INVESTING CORP. 

97 WASHINGTON MUTUAL INVESTORS FUND INC. 

98 WELLINGTON FUND INC. 

99 WHITEHALL FUND INC. 

100 WISCONSIN FUND INC. 
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GPDQS 

GPDQS is a file of quarterly prices and dividends for the thirty stocks used in 1971 to compute 
Dow-Jones' Industrial average. For each quarter, the following information is given: 

"opening price" 

- this is the price of one share of the stock as of the close of trading on 
the last trading day of the previous quarter. 

"dividends" 

- this includes all dividends received during the quarter by a person who held 
one share at the beginning of the quarter. Any distribution treated as income 
is also included. 

"closing price" 

- this is the value of the holdings of an investor who held one share at the 
beginning of the quarter. The value is calculated as of the close of the 
last trading day in the quarter. 

Each stock is allocated one record on the file. Stock number 1 is on record 1; stock 2 on record 2, 
etc. Each record contains 40 quarter of information as follows: 

opening price 1st quarter of 1st year 

dividends 1st quarter of 1st year 

closing price 1st quarter of 1st year 

opening price 2nd quarter of 1st year 

dividends 2nd quarter of 1st year 

closing price 2nd quarter of 1st year 

etc. 

Any missing value is represented by -999. 

Following the 120 data values on each record are: 

- the first year for which data are given (e.g., 1963) 

- the name of the stock (up to 20 characters) 

The file uses the same format as GPDQI and GPDQF. The stocks are listed as follows: 

1 ALLIED CHEMICAL 

2 ALUMINUM COMPANY OF AMERICA 

3 AMERICAN BRANDS 

4 AMERICAN CAN COMPANY 

5 AMERICAN TELEPHONE AND TELEGRAPH 

6 ANACONDA 

7 BETHLEHEM STEEL 

8 CHRYSLER CORPORATION 

9 DUPONT (E.I.) DE NEMOURS 

10 EASTMAN KODAK 

11 GENERAL ELECTRIC 

12 GENERAL FOODS 

13 GENERAL MOTORS 

14 GOODYEAR TIRE AND RUBBER 

15 INTERNATIONAL HARVESTER 

16 INTERNATIONAL NICKEL COMPANY OF CANADA 

17 INTERNATIONAL PAPER COMPANY 

18 JOHNS-MANVILLE CORPORATION 

19 OWENS-ILLINOIS 

20 PROCTER AND GAMBLE 

21 SEARS ROEBUCK 

22 STANDARD OIL OF CALIFORNIA 

23 STANDARD OIL OF NEW JERSEY 

24 SWIFT AND COMPANY 

25 TEXACO 

26 UNION CARBIDE 

27 UNITED AIRCRAFT 

28 U.S. STEEL 

29 WESTINGHOUSE ELECTRIC 

30 W00LW0RTH (F.W.) COMPANY 
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GPDQI 

GPDQI is a file of quarterly prices and dividends for 98 common stock indices published 
by Standard and Poor's and returns on 90-day Treasury bills. For each quarter, the 
following information is given: 

"opening price" 

- this is the value of the index as of the end of the previous 
quarter, as reported by Standard and Poor's. 

"dividends" 

- this is the value of dividends paid by the stocks in the index 
during the quarter, as reported by Standard and Poor's. 

"closing price" 

- this is the value of the index as of the end of the quarter, as 
reported by Standard and Poor's. 

Each index is allocated one record on the file. Index number 1 is on record 1; index 
2 on record 2, etc. Each record contains 120 numbers, as follows: 

opening price 1st quarter of 1st year 

dividends 1st quarter of 1st year 

closing price 1st quarter of 1st year 

opening price 2nd quarter of 1st year 

dividends 2nd quarter of 1st year 

closing price 2nd quarter of 1st year 

Any missing value is represented by -999. 

Following the 120 data values on each record are: 

- the first year for which data are given (e.g., 1963) 

- the name of the index (up to 20 characters) 

For 90-day Treasury bills, the three values are: 
"opening price" 

- the average of the bid and ask prices at the end of the previous quarter 

for the 90-day bill expiring on the date nearest the end of the quarter (e.g., 98.8) 

"dividends" 

- zero 
"closing price" 

- 100 

The file uses the same format as GPDQF and GPDQS. The indexes are listed as follows: 

1 500 STOCKS 

2 425 INDUSTRIALS 

3 20 RAILS 

4 55 UTILITIES 

5 CAPITAL GOODS 

6 CONSUMER PRODUCTS 

7 HIGH GRADE 

8 LOW PRICED 

9 AEROSPACE 

10 AIR TRANSPORT 

11 ALUMINUM 

12 AUTOMOBILE 

13 AUTO PARTS 

14 AUTO TRUCKS & PARTS 

15 BREWERS 

16 DISTILLERS 

17 SOFT DRINKS 

18 CEMENT 

19 HEATING & PLUMBING 
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20 


ROOFING & WALL BOARD 


21 


HOME FURNISHINGS 


22 


CHEMICALS 


23 


BITUMINOUS COAL 


24 


CONFECTIONERY 


25 


CONTAINERS - METAL & GLASS 


26 


CONTAINERS - PAPER 


27 


COPPER 


28 


DRUGS 


29 


ELECTRICAL EQUIPMENT 


30 


ELECTRICAL HOUSEHOLD APPLIANCES 


31 


ELECTRONICS 


32 


BUILDING MATERIALS COMPOSITE 


33 


FINANCE COMPANIES 


34 


SMALL LOAN 


35 


FOOD - BISCUIT BAKERS 


36 


FOOD - BREAD & CAKE 


37 


FOOD - CANNED 


38 


FOOD - CORN REFINERS 


39 


FOOD - DIARY PRODUCTS 


40 


FOOD - MEAT PACKING 


41 


FOOD - PACKAGED FOODS 


42 


GOLD MINING 


43 


LEAD & ZINC 


44 


MACHINE TOOLS 


45 


AGRICULTURAL MACHINERY 


46 


CONSTRUCTION & MATERIAL HANDLING 


47 


INDUSTRIAL MACHINERY 


48 


OIL WELL EQUIPMENT 


49 


SPECIALTY MACHINERY 


50 


STEAM GENERATING EQUIPMENT 


51 


METAL FABRICATING 


52 


METAL MISCELLANEOUS 


53 


MOTION PICTURES 


54 


OFFICE EQUIPMENT 


55 


CRUDE OIL PRODUCERS 


56 


INTEGRATED OILS - DOMESTIC 


57 


INTEGRATED OILS - INTERNATIONAL 


58 


PAPER 


59 


PUBLISHING 


60 


RADIO & TV BROADCASTERS 


61 


RADIO & TV MANUFACTURERS 


62 


RAILROAD EQUIPMENT 


63 


TEXTILES - SYNTHETIC FIBERS 


64 


DISCOUNT STORES 


65 


DEPARTMENT STORES 


66 


FOOD STORES 


67 


MAIL ORDER 


68 


VARIETY STORES 


69 


SHIPBUILDING 


70 


SHIPPING 


71 


SHOES 


72 


SOAPS 


73 


STEEL 


74 


SUGAR-BEET REFINERS 


75 


FOOD COMPOSITE 


76 


SUGAR-CAN REFINERS 


77 


SULPHUR 


78 


TEXTILES - APPAREL MAHUFACTURERS 


79 


TEXTILE PRODUCTS 


80 


TIRE & RUBBER 


81 


TOBACCO - CIGARETTE MANUFACTURERS 


82 


TOBACCO - CIGAR MANUFACTURERS 


83 


VEGETABLE OILS 


84 


VENDING MACHINES 


85 


ELECTRIC COMPANIES 


86 


NATURAL GAS DISTRIBUTORS 


87 


PIPELINES 


88 


TELEPHONE 


89 


BANKS - NEW YORK CITY 


90 


BANKS - OUTSIDE NEW YORK CITY 


91 


OIL COMPOSITE 


92 


INSURANCE - FIRE & CASUALTY 


93 


INSURANCE - LIFE 


94 


INVESTMENT COMPANIES 


95 


COSMETICS 


96 


ELECTRONIC MAJOR COMPANIES 


97 


HOLDING COMPANIES 


98 


TRUCKERS 


99 


90-DAY TREASURY BILL' 
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RUN 

RUN 
GCHLIN 

Y-VARIABLE (VERTICAL AXIS) 

FUND* INDEX* PORTFOLIO OR STOCK7FUND 
NUMBER? 2 
AFFILIATED 

X-VARIABLE (HORIZONTAL AXIS) 

FUND* INDEX* PORTFOLIO OR STOCK? INDEX 
NUMBER? 1 
500 STOCKS 

DO YOU WANT THE TREASURY BILL RATE SUBTRACTED FROM EACH RETURN7YES 



FIRST QUARTER -- 
YEAR? 1964 
QUARTER? 3 








LAST QUARTER- 
YEAR? 1971 
QUARTER? 2 










Y 


X 




MAXIMUM 
MINIMUM 
AVERAGE 
STD DEV 
AVG/STD DEV 


13.394 

-18.146 

0.632 

7.020 

0.090 


15.377 

-19.597 

0.555 

7.1 10 

0.078 




REGRESSION LINE 
Y 


s 


0.09507 + 


0.96679* 


STANDARD ERRORS: 




0.28109 


0.03942 



EACH AXIS RUNS FROM -19.5969 TO 15.3768 
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DIFFERENTIAL RETURNS (Y - B*X) — 
YEAR QTR VALUE - + 



1964 


3 


1 .181 


1964 


4 


-1.233 


1965 


1 


0.841 


1965 


2 


-2.003 


1965 


3 


0.963 


1965 


4 


0.847 


1966 


1 


1 .415 


1966 


2 


0.852 


1966 


3 


0.535 


1966 


4 


1.072 


1967 


1 


-0.930 


1967 


2 


1 .041 


1967 


3 


0.108 


1967 


4 


-0.257 


1968 


1 


-0.128 


1968 


2 


1.291 


1968 


3 


3.093 


1968 


4 


2.661 


1969 


1 


-0.195 


1969 


2 


-3.379 


1969 


3 


-2.714 


1969 


4 


-0.331 


1970 


1 


0.013 


1970 


2 


0.800 


1970 


3 


-1 .472 


1970 


4 


-1 .373 


1971 


1 


0.022 


1971 


2 


-0.057 




DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JDXXl^Xf^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



ABNORMAL PERFORMANCE INDEX 



GDAPI 
36507 



This program allows the user to compute an "abnormal performance index' 
based on price changes of stocks for which similar events have taken 
place. 



One or more "events" may be analyzed. For each event, the closing price 
of the relevant stock must be obtained for a specified number of periods 
prior to the event and for a specified number of periods after the event, 
as well as the closing price on the day of the event. If the market was 
closed on the appropriate date of a period, no price should be entered 
for that period (i.e., it should be skipped entirely). The user must also 
indicate the "beta" or "market sensitivity" of the stock. A period may be 
any number of (calendar) days, but every period must be of the same length. 
The program determines the percentage .change in Standard and Poor's 500- 
stock index for each period, multiplies that value by the stock's market 
sensitivity, and subtracts the result from the percentage price change for 
the stock during the period. This difference is the "abnormal" percentage 
price change for the stock for the period. 

Abnormal percentage price changes are computed for the specified number of 
period prior to and subsequent to each event. The values are then averaged 
to obtain an "average abnormal percentage price change" for every period in 
the specified range. Finally, an abnormal price index (API) is constructed 
from the average values. The index is assigned a beginning value of 100. 
Each period's value is then obtained by multiplying the previous period's 
value by one plus the average abnormal percentage price change. 

(Instructions continued on page 2) 



Graduate School of Business 
Stanford University 



GDAPI, page 2 



INSTRUCTIONS : (continued) 

Enter the data to be analyzed in data statements, beginning at line 5000. For each event, 
the following information is required: 

event description 

date of event 

market sensitivity (beta) of stock 

prices 

For example: 

5000 DATA "EFFECT OF UAL CRASH ON DOUGLAS STOCK" 

5001 DATA "JANUARY 5, 1965" 

5002 DATA 1.23 

5003 DATA 38,39,38.625,38. 5, etc. 

The data statements should be followed with an END statement. For example: 

9999 END 
After entering the data statements, it is possible to save the program and data by typing: 

SAVE 

This will save the material in the user's account under the name GDAPI. To re-use it at some 
other time, type: 

GET-GDAPI 

(instead of GET-$GDAPI) 

Once the data have been entered, the program can be RUN. The user will first be asked if he is 
using FILES or DATA statements. Assume that the appropriate answer is DATA statements. The user 
will then indicate the total number of events included in the data statements and whether or not 
he wishes to analyze them all. If the answer to the latter question is NO, he will be asked to 
specify the numbers of the events to be analyzed. The program will then ask for the number of 
days per period. Finally, the number of periods prior to each event and subsequent to each event 
must be specified. ( NOTE : If PI periods prior to each event and P2 periods subsequent to each 
event are to be analyzed, the user must have included PI + P2 + 1 prices for each event.) 

The program will list the events to be analyzed, perform the required computations, and indicate 
the minimum and maximum values of the abnormal performance index over the period. The user may 
then select his own scale for the final graph or let the program automatically select a scale 
running from the minimum to the maximum value. Finally, the program will print a list of the 
values and an accompanying graph. The program may be re-run to analyze a different set of events. 

For convenience, a file capability is also included. If the user indicates that he is using FILES, 
the program will request the name of the file to be used. For each event, the description, date 
and beta of the stock must be included in the DATA statements (as before), but the prices will be 
obtained from the specified file. The prices for the first stock should be included in record 1, 
those for the second in record 2, etc. The use of files expands the size of problem that can be 
analyzed, since only about 2500 numbers can be entered in data statements before the available 
space will be fully used. 

The program uses the values of Standard and Poor's 500-stock index on file GSP5. 

GSP5 

GSP5 file contains data on the value of Standard and Poor's 500-stock index on a daily basis, 
beginning with the first day of 1964. Values are in sequence, with one for each day of the year. 
A day on which the exchange is closed is indicated by an entry of -999. Data for 1964 are on 
records 1, 2, and 3. Data for 1965 are on records 4, 5, 6, etc. The third record used for every 
year is filled out with -999 values. 
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RUN 

5050 DATA 556. 75, 570, 575. 5, 566. 5, 569, 564. 5,564, 558, 562. 5, 568 

5060 DATA 568,56 8.5,575.25,585,588.5,584.5,583.5,579.75,577.25,574.5 

5070 DATA 580,582,586.5,588.5,589,594.25,595.25,598,598.5,597 

5 080 DATA 588.25,584.5,585.25,596.75,590.25,586,584,582.25,585.5,582 

5090 DATA 590,594,584,583,581,583.5,576.5,570.25,579.5,584 

5 100 DATA 584.75 

5 110 DATA "IBM 370 ANNOUNCEMENT" 

5 120 DATA "JUNE 30, 1970",. 9 

5160 DATA 258.5,250.5,245.5,248,241,242,259,267,278,287 

5170 DATA 283,283,271.25,270,266.25,268.25,265.5,259.25,259,259 

5 180 DATA 271,26 5.7 5,27 2,270.25,268.5,257.12,255,258,257.5,257.5 

5190 DATA 250,254,250.75,244.5,242.5,242.5,254.25,250.25,247.75,251 .25 

5200 DATA 252,254,259.5,258,257.75,254,257,253.75,253.25,252.75 

5210 DATA 252.5 

5220 DATA "IBM SYSTEM 3 ANNOUNCEMENT" 

5230 DATA "JULY 30, 1969",. 9 

5 270 DATA 313.5,314.25,314.25,314,312.25,315.5,325.5,320.5,329.75,331.5 

5280 DATA 337.75,337.5,348,351.25,348,336,333.5,327,331.5,321.5 

5290 DATA 323.5,328.5,327.5,323,318.25,320.25,317,316.5,313.12,313 

5300 DATA 315.5,324.5,329.5,326.75,334.5,336,333.75,333.5,329.25,330.5 

5310 DATA 335,338.75,339.5,341.25,342,346.87,349,350.25,341,340 

5320 DATA 342.75 

5 330 DATA "CDC 7600 ANNOUNCEMENT" 

5340 DATA "DECEMBER 3, 1968", 1.47 

5 380 DATA 140. 12, 139. 75, 141, 143. 5, 143. 75, 141. 62137. 75, 141. 75, 141. 62 

5 385 DATA 140.12 

5 390 DATA 1 38, 1 38 .7 5, 1 37 . 1 2, 1 37 . 37, 1 35 .25, 1 35.62, 1 35 .62, 1 40, 1 47, 1 42. 62 

5400 DATA 141.75, 140, 141.62, 147, 154.25, 157.12, 155.62, 156.62, 157.87 

5405 DATA 157.12 

5410 DATA 159,161,161,158,147.62,155,150,148.87,150,150.75 

5420 DATA 1 46 . 7 5, 1 44. 25, 1 47, 1 46 . 75, 1 46 .25, 1 44, 144.25, 143.75, 142.37, 139 

5430 DATA 138 

5440 DATA "CDC 70 ANNOUNCEMENT" 

5450 DATA "MARCH 18, 197 1", 1.47 

5 490 DATA 59. 75, 60. 5, 60. 5, 62. 6 2, 62. 2 5, 61. 62, 60. 75, 61. 25, 58. 75, 61 

5500 DATA 60.7 5,59.5,58.25,58.62,59.62,58,57.5,56.75,56.8 7,56.3 7 

5510 DATA 58.5,60.5,61,62,65,65,63.75,65.25,65.5,65 

5520 DATA 64.62,65.64,37,63.25,62.12,62.25,62.62,62.5,63,63.75 

5530 DATA 63. 62, 63. 5, 63. 25, 63. 62, 64. 75, 65. 12, 68. 5, 67, 67. 25, 66. 62 

5540 DATA 65 

5550 END 

RUN 
GDAPI 



ARE YOU USING 'FILES' OR 'DATA* STATEMENTS ?DATA 

HOW MANY EVENTS DO YOU HAVE IN ALL? 5 

DO YOU WISH TO ANALYZE THEM ALL? YES 

HOW MANY DAYS ARE THERE PER PERIOD (E.G. 1 FOR 

DAILY DATA, 7 FOR WEEKLY DATA). NUMBER OF DAYS? 1 

FOR HOW MANY PERIODS PRIOR TO EACH EVENT DO YOU 

HAVE PRICES? 30 

FOR HOW MANY PERIODS AFTER EACH EVENT DO YOU 

HAVE PRICES?20 



EVENT DATE EVENT 



1 APRIL 7,1964 IBM 360 ANNOUNCEMENT 

2 JUNE 30, 1970 IBM 370 ANNOUNCEMENT 

3 JULY 30, 1969 IBM SYSTEM 3 ANNOUNCEMENT 

4 DECEMBER 3,1968 CDC 7600 ANNOUNCEMENT 

5 MARCH 18,1971 CDC 70 ANNOUNCEMENT 
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MINIMUM API ■ 95.89482 MAXIMUM API 
DO YOU WANT TO CHOOSE THE SCALE7NO 



109.37471 



PERIOD 


API 95.895 


100 


109.375 


-30 


100 


.000 






-29 


100 


.597 






-28 


100 


.731 






-27 


101 


.513 






-26 


101 


.152 






-25 


101 


.062 






-24 


101 


.049 






-23 


101 


.584 






-22 


101 


.631 






-21 


103 


.002 






-20 


103 


.003 






-19 


102 


.622 






-18 


102 


.427 






-17 


103 


.038 






-16 


102 


.531 






-15 


101 


.470 






-14 


101 


.119 






-13 


100 


.756 






-12 


101 


.922 






-11 


100 


.560 






-10 


101 


.664 






-9 


101 


.628 






-8 


102 


.137 






-7 


102 


.906 






-6 


104 


.843 






-5 


105 


.164 






-4 


104 


.128 






-3 


104 


.595 






-2 


104 


.730 






-I 


104 


.791 







1 


104 
105 




. * 




.276 






2 


95 


.895 ♦ 






3 
4 


109 
108 


.375 
.022 




<" 


5 


108 


.470 




> 


6 


108 


.222 




/ 


7 


107 


.594 




f 


8 


107 


.626 




JL 


9 


108 


.337 




^ 




10 


108 


.301 




g 


: 


11 


108 


.327 




i 


: 


12 


108 


.329 




j 




13 


108 


.117 




< 


14 


108 


.554 




> 


15 


108 


.531 




< 


16 


109 


.308 




J> 


17 


108 


.253 




r^ 


18 


107 


.793 




/ 


19 


107 


.586 




/ 


20 


107 


.278 




* 





DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM Ijildlv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



EFFICIENT "CORNER" PORTFOLIOS 



GDPA 
36508 



This program finds the set of efficient "corner" portfolios from a set of 
up to 100 securities. The amount invested in each security must lie with- 
in specified bounds. The program assumes that returns follow the "single- 
index" or "diagonal" model: 



R i ■ A i + B i R m + c i 



where: 

R. = return on security i 

A . , B . = constants 

R = an index (usually of the return on some "market portfolio") 

c. = a random variable with a mean of zero and a variance of Q. 

Inputs to the program should be inserted beginning with line 5000 as DATA 
statements. The values (in order) are: 

1) expected value of R 

2) variance of R 

m 

3) number of securities 

4) lower limit on each holding (e.g., .02 for 2%) 

5) upper limit on each holding (e.g., .10 for 10%) 

6) for each security: 

a) the value of A. 

b) the value of B. 

c) the value of Q. 

(Continued on Page 2) 



This program uses the critical line algorithm developed by Markowitz. 
In some cases, round-off problems may cause the procedure to produce 
erroneous results. This is usually evident from the composition of the 
portfolios. Slight changes in the inputs may cure the problem. 
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INSTRUCTIONS : (continued) 

The section of the program that reads the data is located between lines 1000 and 1050 and 
may be changed to (1) read the data from a file and/or (2) to set different upper and lower 
bounds for different securities. 

When the program is run, it will first ask: 

STARTING, CONTINUING OR FINISHING? 

Respond with STARTING (or just S_). The program will then determine all the corner port- 
folios, beginning with the one offering the greatest expected return. For selected corner 
portfolios, the following information will be printed: 

portfolio number: (in sequence, used for later identification) 

expected return 

standard deviation of return 

associated interest rate (that pure rate of interest that would make the portfolio 
optimal if funds could be freely borrowed or lent at the pure rate of interest) 

Information about some corner portfolios will not be printed if they differ insignificantly 
from those for which information is shown. 

After this phase, the program will again ask: 

STARTING, CONTINUING OR FINISHING? 

This time, respond CONTINUING (or just C). The program will then ask for the LOWEST-NUMBERED 
PORTFOLIO YOU WOULD LIKE TO SEE. Use the numbers from the previous printout. The program 
will indicate the percent to be invested in each security (except those for which the percent 
is zero). When you do not wish to see another portfolio, simply respond with a portfolio num- 
ber larger than any shown on the previous printout. The program will again ask: 

STARTING, CONTINUING OR FINISHING? 

Respond with FINISHING , (or simply F), and the program will terminate. 
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RUN 

RUN 
GDPA 



STARTING., CONTINUING* OR FINISHING7S 

PORT EXP RTN STD DEV ASSOC. INT RATE 



1 


2.63903 


.667977 




2 


2.63896 


.66796 


2.62654 


3 


2.63856 


.660434 


2.61667 


7 


2.62528 


.651724 


1 .5445 


8 


2.61913 


.648087 


1.50027 


9 


2.6085 


.641963 


1.48642 


10 


2.57222 


.621961 


1.39845 


11 


2.56347 


.617367 


1 .37759 


12 


2.56241 


.616813 


1.37474 


13 


2.55962 


.615364 


1.37342 


14 


2.53189 


.601056 


1 .3609 


15 


2.47137 


.570292 


1.33783 


16 


2.46151 


.565374 


1.31717 


17 


2.46108 


.565162 


1 .31553 


18 


2.46054 


.564898 


1.31383 


19 


2.45555 


.562452 


1 . 30 1 2 1 


20 


2.44827 


.558914 


1 .29639 


21 


2.40004 


.535779 


1 .26948 


22 


2.37004 


.521658 


1.25443 


23 


2.36306 


.5184 


1.25071 


24 


2.33072 


.503413 


1.23759 


25 


2.27052 


.475986 


1 .21354 


26 


2.27031 


.475896 


1 .21344 


27 


2.18365 


.437799 


1 .16069 


28 


2.16712 


.430769 


1.147 


29 


2.16033 


.427914 


1.14006 


30 


2.15239 


.4246 


1 .13 


31 


2.14712 


.422415 


1 .12458 


32 


2.12216 


.412283 


1.08771 


33 


2.11055 


.407726 


1.0568 


34 


2.09365 


.401449 


.965182 


35 


2.09151 


.400691 


.946533 


37 


2.09151 


.400691 


.79256 


38 


2.0915 


.40069 


.703653 


39 


2.07266 


.395631 


.476815 


40 


2.03619 


.388058 


-.292809 


41 


2.02612 


.38649 


-.639503 


42 


2.00468 


.383862 


-1 .83871 


43 


2.00018 


.383522 


-5.4019 


44 


1 .99761 


.383455 





STARTING, CONTINUING* OR FINISHING7C 



LOWEST -NUMBERED PORTFOLIO YOU WOULD LIKE TO SEE71 
SEC PERCENT 



1 


10 


3 


10 


4 


10 


7 


10 


9 


10 


10 


10 


12 


10 


13 


10 


15 


10 


20 


10 



NEXT (LOWEST -NUMBERED) PORTFOLIO YOU WOULD LIKE TO SEE721 
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SEC PERCENT 



1 


8 


2 


10 


3 


8.08 


4 


5.64 


6 


10 


7 


7.05 


9 


10 


10 


10 


12 


10 


13 


.28 


15 


3.48 


16 


4.71 


17 


10 


18 


2.77 



NEXT (LOWEST -NUMBERED) PORTFOLIO YOU WOULD LIKE TO SEE744 



EC 


PERCENT 


2 


10 


5 


10 


6 


10 


7 


2.78 


11 


10 


12 


5.19 


13 


2.03 


14 


10 


16 


10 


17 


10 


18 


10 


19 


10 



NEXT (LOWEST -NUMBERED) PORTFOLIO YOU WOULD LIKE TO SEE? 100 



STARTING, CONTINUING* OR FINISHING7F 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 
CONTRIBUTED P R O G R A M JU Ab M\j 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



FINANCIAL RATIOS 



GFNRAT 
36510 



This program uses balance sheet and income statement data to compute 
various financial ratios. The data may be entered either via the 
terminal or in data statements. 



If data are entered by the user as the program is being run, the order 
will be indicated as the program proceeds. If the user elects to enter 
the data in data statements, the same order should be followed, with 
the statements entered beginning at line 9000. 
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RUN 

RUN 
GFNRAT 

PLEASE INDICATE INPUT SOURCE -- 
•T' FOR TERMINAL 
'D' FOR DATA STATEMENTS 

SOURCE -- ?T 

NET RECEIVABLES - 

NET INVENTORIES -• 

NET INVENTORIES -• 

CURRENT ASSETS -- 



753985080 

7141576993 
PREVIOUS YEAR-END — 7109814927 
7225925178 



TOTAL ASSETS -- 7 323223797 

CURRENT LIABILITIES — 7107781631 

PREFERRED STOCK — 70 

COMMON STOCK — 740569128 

CAPITAL AND EARNED SURPLUS -- 7120721744 

NET SALES — 7 344740452 

COST OF GOODS SOLD — 7229779697 

SELLING* GENERAL AND ADMINISTRATIVE EXPENSES — 773472649 

NET PROFIT — 713584388 

DIVIDENDS ON PREFERRED STOCK — 70 



CURRENT RATIOt 2.09614 

ACID TEST RATIOt .782584 

RECEIVABLES TURNOVER* 6.38585 TIMES 

AVERAGE INVENTORY TURNOVER* 1.82806 TIMES 

LT DEBT /TOTAL CAPITALIZATION: .25135 

TOTAL DEBT TO EQUITY* 1.00398 

GROSS PROFIT MARGIN* 33.347 PERCENT 

SELLING* GENERAL AND ADMIN. EXPENSES TO SALES* 

NET PROFIT MARGIN* 3.94047 PERCENT 

RATE OF RETURN ON COMMON STOCK EQUITY* 8.42229 

TURNOVER RATIO* 1.06657 TIMES 

EARNING POWER* 4.20278 PERCENT 



21.3125 



PERCENT 



PERCENT 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DAblv 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



INVESTMENT RETURN (CASH FLOW) 



GIRRPV 
36513 



This program calculates internal rates of return and/or present values 
for sets of cash inflows and outflows over time. 



The data may be entered from the terminal or from data statements. The 
investment is assumed to begin at time period zero. The flow at period 1 
is assumed to occur at the end of the first period; that at period 2 at 
the end of the second period, etc. If all flows except the initial one 
are the same, the program does not require each to be entered explicitly. 

To determine the internal rate of return, respond IRR when asked for the 
next choice. To determine the present value, respond PV/, the program will 
then request a discount rate. To do a new problem, respond NEW . To stop 
the program, respond STOP . 

Everv outflow must be entered as a minus number (including the one in period 
zero). Inflows must be entered as positive numbers -- the plus sign is op- 
tional . 

If data statements are used, the following information should be included 
for each investment: 

- the number of periods 

- the cash flow for period zero 

- the cash flow for period one 

- "YES" if all the rest of the flows are the same; 
"NO" if the remaining flows differ from the first 

- if the remaining flows differ: 

- flow for the second period 

- flow for the third period, etc. 

Data statements should be entered beginning at line 9000. Additional 
investments may be included by adding more data statements. 
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RUN 



PLEASE INDICATE INPUT SOURCE -- 

T (FOR TERMINAL) 

D (FOR DATA STATEMENTS) 
SOURCE7T 

NUMBER OF PERIODS AFTER PERIOD ZER0?5 

+ REPRESENTS A NET INFLOW, - REPRESENTS A NET OUTFLOW 
INITIAL CASH FLOW IN PERIOD ZERO7-18000 
CASH FLOW IN FIRST PERIOD75600 
ARE ALL THE REST OF THE FLOWS THE SAME7YES 

WHAT NEXT (IRR*PV*NEW OR STOP)?IRR 

THE INTERNAL RATE OF RETURN IS 16.8 PERCENT 



WHAT NEXT (IRR,PV*NEW OR STOP)?PV 

DISCOUNT RATE (IN PERCENT)? 10 
NET PRESENT VALUE IS 3228.41 



WHAT NEXT (IRR,PV,NEW OR STOP)?NEW 

NUMBER OF PERIODS AFTER PERIOD ZERO? 5 

+ REPRESENTS A NET INFLOW, - REPRESENTS A NET OUTFLOW 

INITIAL CASH FLOW IN PERIOD ZERO7-3500 

CASH FLOW IN FIRST PERIOD7200 

ARE ALL THE REST OF THE FLOWS THE SAME? NO 

PERIOD 2 FLOW72000 

PERIOD 3 FLOW? 1400 

PERIOD 4 FLOW7600 

PERIOD 5 FLOW? -100 

WHAT NEXT (IRR,PV,NEW OR STOP)?PV 

DISCOUNT RATE (IN PERCENT)? 10 
NET PRESENT VALUE IS -265.732 



WHAT NEXT (IRR,PV*NEW OR STOP)? STOP 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R G R A M .DaS^H^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



WARRANT PRICE CALCULATION 

This program allows the user to calculate the "normal" price of a 
warrant and the "normal" change in the warrant's price per dollar 
change in the price of the associated stock. 



GKASSF 
36514 



Required inputs are requested by the program, as shown in the sample run. 



The formula used is that given on page 204 of Beat the Market by 
Kassouf and Thorpe. 



Graduate School of Business 
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RUN 

RUN 
GKASSF 

COMMON STOCK PRICE745 

NUMBER OF SHARES PER WARRANT? 1 

EXERCISE PRICE? 50 

PREVIOUS YEAR'S HIGH FOR STOCK760 

PREVIOUS YEAR'S LOW FOR STOCK740 

MONTHS REMAINING BEFORE EXPIRATION? 72 

CURRENT YIELD (E.G. .05)7.03 

NUMBER OF OPTIONS OUTSTANDING750000 

NUMBER OF COMMON SHARES OUTSTANDING? 150000 



•NORMAL* WARRANT PRICE « 15*5202 

•NORMAL' CHANGE IN WARRANT PRICE PER DOLLAR CHANGE IN STOCK 
PRICE - .645292 

DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM llAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PRICE/EARNINGS RATIO CALCULATION 



GKCOST 
36515 



This program calculates the theoretical P/E ratio for a given firm. It 
takes advantage of the fact that most firms 1 financial future may be 
thought of as years segmented into periods of similar financial policy. 
Within each segment, the firm's growth rate, dividend payout ratio and 
discount rate are assumed constant. The common stock P/E ratio is cal- 
culated assuming an initial EPS of $1.00. To get the theoretical market 
price of the stock, you need only multiply the P/E ratio by the actual 
beginning EPS. 



To use this program, segment your firm's future into years of similar 
financial nature, then input the starting year and ending year of each 
segment as well as its characteristic growth rate, payout ratio, and 
discount rate for each segment. For your final ending year, Type "jZf". 
The program uses an infinite model for the last year. 

Be sure to remember that when entering ratios and rates percentages are 
input as "33", not ".33" or "33%". 

There are two output formats, a long and short form. The long form 
prints out all intermediate calculations while the short form prints 
out just the answer. 



You may rerun this program using a modified version of your initial 
data as follows: 

"No" change in the existing values 
"Individually" change each segment's value 
"Percentage" change in all segment values 
"One" new value to be applied to all segments 
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RUN 

RUN 
GKCOST 



SHARE PRICE <P/E> CALCULATIONS 



DO YOU WISH DIRECTIONS ?NO 

HOW MANY SEGMENTS WILL YOU USE (MAX IS 20) ?4 

PLEASE INPUT YOUR DATA IN THE FOLLOWING ORDER* SEPARATED BY COMMAS t 

STARTING YEAR* ENDING YEAR* GROWTH RATE* PAYOUT RATIO* DISCOUNT RATE 

71*5*25*0*12 
76*10*15*20*12 
711*20*10*30*12 
721*0*4*60*12 

•LONG* OR •SHORT* FORMAT 7LONG 



SHARE PRICE (P/E) CALCULATIONS 



SEGMENT 


YEARS 


GROWTH DIVIDEND DISCOUNT 




NO. 


S 


E 


RATE 


PAYOUT 


RATE 




1 


1 


5 


0*250 


0.000 


0.120 




2 


6 


10 


0.150 


0.200 


0.120 




3 


11 


20 


0.100 


0.300 


0.120 




4 


21 





0.040 


0.600 


0.120 




PRIOR 


COMPOUND 


CURRENT 


DIVIDEND G-P.V. 


SEGMEN 


SEGMENT X 


GROWTH 


= BEGINNING X PAYOUT X DISCOUNT 


= divide: 


EPS 


FACTOR 


EPS 


RATIO FACTOR 


VALUE 


0.00 




0.00 


1.00 




0.00 7.04 


0.00 


1.00 




3.05 


3.05 




0.20 5.42 


3.31 


3.05 




2.01 


6.14 




0.30 9.07 


16.70 


6.14 




2.59 


15.92 




0.60 13.00 


124.18 



SEGMENT 


PRICE 


TOTAL 


DIVIDEND 


+ DISCOUNT 


■ VALUE 


VALUE 






0.00 


20.13 


20.13 


3.31 


32 . 1 6 


35.47 


16.70 


39.98 


56.68 


124.18 


0.00 


124.18 



DESIRED RERUN OPTION: 

•MODIFY** 'START* OVER* 'END* RUN 7MODIFY 

MODIFICATION OPTIONS! 

•NO* CHANGE* • INDIVIDUALLY * * 'PERCENTAGE** 'ONE* VALUE 

MODIFY GROWTH RATE 7 NO 

MODIFY PAYOUT RATIO ? INDIVIDUALLY 
HOW MANY SEGMENTS 72 
WHICH ONES 72*4 
SEGMENT 2 725 
SEGMENT 4 775 
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MODIFY DISCOUNT RATE 7PERCENTAGE 

WHAT PERCENTAGE CHANGE DO YOU VISH ? 50 

DIRECTIONS THIS RERUN ?NO 

•LONG* OR • SHORT* FORMAT ? SHORT 



SHARE PRICE (P/E) CALCULATIONS 



SEGMENT 
NO. 


YEARS 
S E 


1 
2 

3 

4 


1 5 

6 10 

11 20 

21 



GROWTH DIVIDEND DISCOUNT TOTAL 

RATE PAYOUT RATE VALUE 

0.250 0.000 0.180 7.223 

0.150 0.250 0.180 16.524 

0.100 0.300 0.180 29.720 

0.040 0.750 0.180 88.702 



DESIRED RERUN OPTION: 

•MODIFY', 'START* OVER, 'END' RUN ?END 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DA^lv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SECURITIES PORTFOLIO ANALYSIS AND DETERMINATION 



GNMRVB 
36530 



GNMRVB traces out the relationship between minimum non-market risk and 
market sensitivity (beta) for portfolios composed from a set of stocks. 
GMRGB finds the portfolio which gives the minimum amount of non-market 
risk for a given level of market sensitivity (beta). Formally, they 
solve the following problem: 



N 2 2 
Minimize: z X n .R . 
i=l n 1 



N 
subject to: z X.B. = B 
i = l n n 



Z X. = 1 
i = l n 



X. > for all i 



The value of X-j is the proportion of the portfolio invested in security i. 
R-j is a measure of the security i's relative non-market risk. Bj is a 
measure of security i's market sensitivity (beta). F is the level of beta 
for the entire portfolio. The relative non-market risk of the portfolio 
is given by: 



\ 



N 



i = l 



2 2 

x i R i 



GNMRVB is used in conjunction with GMRGB. After the relationship between 
minimum non-market risk and beta has been traced out, the "best" combination 
can be chosen. The corresponding value of beta can then be used with program 
GMRGB to find the composition of that portfolio. 

GNMRVB and GMRGB require data statements beginning at line 9000 as follows: 

1) the number of securities 

2) for each security: 

a) the value of beta 

b) the security's relative non-market risk 

GNMRVB requests a "STEP SIZE". This is the interval for calculation and 
printing of beta levels. Values are always selected so that 1.00 is included. 
The smaller the step size, the more detailed the results (and, of course, the 
longer the time required to obtain them). 



These programs use a special case of Markowitz' critical line algorithm. In 
some cases, they may produce errors due to roundoff problems. In such cir- 
cumstances, the difficulty may be avoided by changing the data slightly. 
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RUN 

9000 DATA 5 

9010 DATA .84, .386 

9012 DATA i. 06,. 3 74 

9014 DATA 1.17, .7 91 

9016 DATA 1.01, .540 

9018 DATA 1 70, 1.562 

RUN 

GNMRVB 

HAVE YOU ENTERED YOUR DATA? YES 
STEP SIZE?. 05 



BETA REL. NON-MKT RISK 



1.700 


1.562 




1 .650 


1.417 




1 .600 


1.276 




1.550 


1. 142 




1.500 


1.017 




1 .450 


0V902 




1.400 


0.789 




1.350 


0.680 




1.300 


0.576 




1.250 


0.47 9 




1 .200 


0.392 


* 


1 .150 


0.323 


* 


1. 100 


0.275 


* 


1.050 


0.241 


* 


1 .000 


0.228 


* 


0.950 


0.23 9 


* 


0.900 


0.286 


* 


0.850 


0.365 


* 


DONE 






RUN 






GMRGB 







HAVE YOU ENTERED YOUR DATA? NO 

ENTER DATA BEGINNING AT LINE 9000 
FIRST, THE NUMBER OF SECURITIES 
THEN, FOR EVERY SECURITY -- 

1 ) THE VALUE OF BETA 

2) THE SECURITY'S RELATIVE NON-MARKET RISK 

WHEN YOU HAVE ENTERED YOUR DATA STATEMENTS, 
RE-RUN THE PROGRAM 

DONE 

9000 DATA 5 

9010 DATA .84,. 386 

9012 DATA 1 .06,. 374 

9014 DATA 1.17, .791 

9016 DATA 1 .01,. 540 

9018 DATA 1 .70,1 .562 

RUN 

GMRGB 

HAVE YOU ENTERED YOUR DATA?YES 
DESIRED LEVEL OF BETA? 1 

SEC PERCENT 



1 34.14 

2 37.32 

3 8.45 

4 17.80 

5 2.30 

BETA = 1 .00 

RELATIVE NON-MARKET RISK » 0.23 

DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M DAlJ M\j 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



GROSS NATIONAL PRODUCT SUMMARY 



GNPSUM 
36086 



GNPSUM produces figures for GNP, consumption, investment, and government 
spending for a series of years from a model in which consumption is a 
function of income in the previous period, and investment depends in part 
on changes in consumption. 



The following coefficients are to be input by the user: 

(Note: All dollar values should be entered in exponential notation. 

Example: $6 million = 6E + 6.) 

The first four values refer to a base period: 

A = the fraction consumption was of personal income 

B = the actual value of investment expenditures 

E = the value of government spending in this base period 

Y(l) = the total GNP for this base period 

The next five values are general information: 

N = the number of periods the user wishes to analyze 

G = the fraction disposable income is of total GNP 

C = the additional investment added each period 

F = the additional government spending each period 

D = the fraction of the consumption increment that is to 

be added to investment each period 
N$ = 'Yes' implies H=l , and the business investment does 

have a random component 

'No' implies H=0, and the business investment does 

not have a random component 

The random component has a rectangular distribution, 

and ranges from +10% to -10% of the value of B + (C * 

For a user familiar with GNPSUM, the following changes can be made to 
read data-statements instead of the long input routine: 

9146 READ A,B,E,Y(1 ) ,N,G,C,F,D,N$ 

9147 GOTO 9320 

Add data-statements for the values in 9146 beginning in line 9900. 



T) 



Maximum of 29 periods. To increase this dimension alter line 9345. 
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RUN 

GET-SGNPSUM 

RUN 

GNPSUM 

* GNP SUMMARY * 

THIS PROGRAM PRINTS A SUMMARY OF FIGURES FOR GNP* CONSUMPTION, INVEST- 
MENT* AND GOVERNMENT SPENDING FOR A SERIES OF CONSECUTIVE YEARS . 

THE FOLLOWING FOUR QUESTIONS REFER TO A BASE PERIOD J 

FOR THE BASE PERIOD. WHAT FRACTION OF PERSONAL INCOME WAS CONSUMPTION 
7.91 

WHAT WAS THE TOTAL INVESTMENT DURING THIS PERIOD? (IN DOLLARS )?10E+ 9 

WHAT WAS THE GOVERNMENT SPENDING FOR THIS PERIOD? 1 1 2E+9 

AND WHAT WAS THE TOTAL GNP FOR THIS BASE PERI0D?465E+9 



HOW MANY PERIODS DO YOU WISH TO ANALYZE? 12 

FOR THIS MODEL* WHAT FRACTION OF GNP SHOULD BE USED AS DISPOSABLE INCOME 
?.72 

HOW MUCH NEW INVESTMENT SHOULD BE ADDED EACH PERIOD72. 5E+6 

HOW MUCH NEW GOVERNMENT SPENDING SHOULD BE ADDED EACH PERIOD? 100E+ 6 

WHAT FRACTION OF THE CHANGE IN CONSUMPTION FROM PERIOD TO PERIOD SHOULD 
BE RE-INVESTED?. 333 

DOES THE NORMAL BUSINESS INVESTMENT HAVE A RANDOM COMPONENT? YES 

YEAR GNP CONSUMPTION INVESTMENT GOVT. EXP. 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



4.. 6 5000 E+ 11 
4.26771E+11 
3. 8 8622 E+ 11 
3.67908E+11 
3.54477E+11 
3.50012E+11 
3.48810E+11 
3.50575E+11 
3.52299E+11 
3.54436E+11 
3.56365E+11 
3.56676E+11 
3.57383E-M1 



3.43000E+1 1 
3.04668E+11 
2.79620E+11 
2.54625E+1 1 
2.41053E+11 
2.32253E+1 1 
2.29328E+11 
2.28540E+1 1 
2.29697E+1 1 
2.30826E+1 1 
2.32226E+11 
2.33491E+11 
2.33694E+1 1 



1 .00000E+10 
1.00025E+10 
-3.29849E+09 
8.83005E+08 
9.23935E+08 
5.15860E+09 
6.78220E+09 
9.23503E+09 
9.70215E+09 
1 .06095E+10 
1 . 10390E+10 
9.98527E+09 
1 .03885E+10 



. 12000E+1 1 
.12100E+1 1 
•12300E+1 1 
•12400E+1 1 
•12500E+1 1 

• 12600E+1 1 

• 12700E+1 1 
.12800E+1 1 

• 12900E+1 1 
.13000E+1 1 
.13100E+1 1 
•13200E+1 1 
.13300E+1 1 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M IS Ablv 



TITLE: 
DESCRIPTION: 



SPECIAL 
CONSIDERATIONS: 



RISK ANALYSIS IN CAPITAL INVESTMENT 



GRISKA 
36543 



The evaluation of a capital investment project starts with the principle 
that the productivity of capital is measured by the rate of return we ex- 
pect to receive over some future period. A dollar received next year is 
worth less to us than a dollar in hand today. Expenditures three years 
hence are less costly than expenditures of equal magnitude two years from 
now. For this reason we cannot calculate the rate of return realistically 
unless we take into account (a) when the sums involved in an investment 
are spent and (b) when the returns are received. 

Comparing alternative investments is thus complicated by the fact that they 
usually differ not only in size but also in the length of time over which 
expenditures will have to be made and benefits returned. 

It is these facts of investment life that long ago made apparent the short- 
comings of approaches that simply averaged expenditures and benefits, or 
lumped them, as in the number-of -years-to-pay-out method. These shortcomings 
stimulated students of decision making to explore more precise methods for 
determining whether one investment would leave a company better off in the 
long run than would another course of action. 

It is not surprising, then, that much effort has been applied to the develop- 
ment of ways to improve our ability to discriminate among investment alterna- 
tives. The focus of all of these investigations has been to sharpen the 
definition of the value of capital investments to the company. The contro- 
versy and furor that once came out in the business press over the most appro- 
priate way of calculating these values has largely been resolved in favor of 
the discounted cash flow method as a reasonable means of measuring the rate 
of return that can be expected in the future from an investment made today. 

Thus we have methods which, in general, are more or less elaborate mathemati- 
cal formulas for comparing the outcomes of various investments and the com- 
binations of the variables that will affect the investments J As these tech- 
niques have progressed, the mathematics involved has become more and more 
precise, so that we can now calculate discounted returns to a fraction of a 
percent. 



Analysis of the sort advocated by Hertz in "Risk Analysis in Capital Invest- 
ment," (Harvard Business Review, January-February 1964) can be performed using 
this program. This documentation contains excerpts from the article; permission 
to reprint has been granted by the publishers. 

See for example, Joel Dean, Capital Budgeting (New York, Columbia University 
Press, 1951); "Return on Capital as a Guide to Managerial Decisions," National 
Association of Accounts Research Report No. 35, December 1, 1959; and Bruce F. 
Young, "Overcoming Obstacles to Use of Discounted Cash Flow for Investment 
Shares," NAA Bulletin, March 1963, p. 15. 



ACKNOWLEDGEMENTS: 
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DESCRIPTION : (continued) 

Summary of New Approach 

After examining present methods of comparing alternative investments, Mr. Hertz reports on his 
firm's experience in applying a new approach to the problem. Using this approach, management 
takes the various levels of possible cash flows, return on investment, and other results of a 
proposed outlay and gets an estimate of the odds for each potential outcome. 

Currently, many facilities decisions are based on discounted cash flow calculations. Management 
is told, for example, that Investment X has an expected internal rate of return of 9.2%, while 
for Investment Y a 10.3% return can be expected. 

By contrast, the new approach would put in front of the executive a schedule which gives him the 
most likely return from X, but also tells him that X has 1 chance in 20 of being a total loss, 
1 in 10 of earning from 4% to 5%, 2 in 10 of paying from 8% to 10%, and 1 chance in 50 of attain- 
ing a 30% rate of return. From another schedule he learns what the most likely rate of return is 
from Y, but also that Y has 1 chance in 10 of resulting in a total loss, 1 in 10 of earning from 
3% to 5% return, 2 in 10 of paying between 9% and 11%, and 1 chance in 100 of 30%. 

In this instance, the estimates of the rates of return provided by the two approaches would not be 
substantially different. However, to the decision-maker with the added information, Investment Y 
no longer looks like the clearly better choice, since with X the chances of substantial gain are 
higher and the risks of loss lower. 

Two things have made this approach appealing to managers who have used it: 

1. Certainly in every case it is a more descriptive statement of the two opportunities. And in 
some cases it might well reverse the decision, in line with particular corporate objectives. 

2. This is not a difficult technique to use, since much of the information needed is already 
available - or readily accessible - and the validity of the principles involved has, for the 
most part, already been proved in other applications. 

The enthusiasm with which managements exposed to this approach have received it suggests that it 
may have wide application. It has particular relevance, for example, in such knotty problems as 
investments relating to acquisitions or new products, and in decisions that might involve excess 
capacity. 

INSTRUCTIONS: 



The program will first ask how many trials (iterations) you want. Each trial simulates one 
possible set of outcomes. Since each takes some time, it is a good idea to limit the analysis 
to forty or fifty trials, at least at first. 

The program will ask if you want price, sales, and operating costs to be interdependent. If 
you say NO, each will be drawn "randomly", without regard to the values drawn for the other two. 
If you say YES, they will be determined together. One draw will be made: if price and operating 
costs are especially high, the share of market will be especially low, and vice-versa. 

The program will also ask if you want to select the output format. If you say NO, the program 
will summarize the possible rates of return from -15% to +30%, in ranges of 5%. If you say YES, 
the program will allow you to select the ranges to be used. 

The program will next request three estimates for each of nine factors. These have the following 
interpretations: 

"low value: there should be roughly 9 chances out of 10 that the 

actual value will exceed this estimate. 

"most likely" value: this is the best single estimate of the actual value 

"high" value: there should be roughly 1 chance out of 10 that the 
actual value will exceed this estimate 

Given this information, the program will perform the desired number of simulations and provide 
the requested summary information. 

Warning : If the number of trials is not large, the results may depend to a considerable extent 
on the particular "draws" made during the simulation. 
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RUN 

RUN 
GRISKA 



RISK ANALYSIS PROGRAM 

HOW MANY ITERATIONS (TRIALS) DO YOU WANT? 40 

DO YOU WANT PRICE* SALES AND OPERATING COSTS 
TO BE INTERDEPENDENT7YES 

DO YOU WANT TO SELECT THE OUTPUT FORMAT7YES 
RATE OF RETURN RANGE -- 

FROM (X)?-10 
TO (X)?+40 

INTERVAL WIDTH (X)?5 

FOR EACH FACTOR* ENTER THREE ESTIMATES -- 
LOW* MOST LIKELY* HIGH 

INVESTMENT (IN DOLLARS)?900* 1000* 1 100 

MARKET SIZE (IN UNITS >?800* 1000* 1200 

SELLING PRICE (IN DOLLARS)? .90, 1 .00* 1 . 10 

MARKET GROWTH RATE (X PER YEAR)? -10*0* 10 

SHARE OF MARKET (X) 740*50*60 

RESIDUAL VALUE OF INVESTMENT (IN DOLLARS )?0* 100*200 

OPERATING COSTS (IN DOLLARS PER UNIT)? .35* .50* .65 

FIXED COSTS (IN DOLLARS PER YEAR)?40*50*60 

USEFUL LIFE ( IN YEARS)?9* 10* 11 



AVERAGE CASH FLOWS 



209.55 
218.00 
227.16 
237.11 
247.94 
259.73 
272.59 
286.62 
326.03 
172.21 
37.11 

AVERAGE TOTAL INVESTMENT * 999.433 

EXPECTED PAYBACK PERIOD: 3 TO 4 YEARS 

EXPECTED RATE OF RETURN (X)» 18.4275 

RATE OF RETURN (X) 
FROM TO 



YEAR 


1 


YEAR 


2 


YEAR 


3 


YEAR 


4 


YEAR 


5 


YEAR 


6 


YEAR 


7 


YEAR 


8 


YEAR 


9 


YEAR 


10 


YEAR 


11 



BELOW 


-10 


-10 


-5 


-5 








5 


5 


10 


10 


15 


15 


20 


20 


25 


25 


30 


30 


35 


35 


40 


ABOVE 


40 



PROB. 


PROB. R IS GREATER 





1 


0.000 


1.000 


0.025 


0.975 


0.000 


0.975 


0.250 


0.725 


0.125 


0.600 


0.200 


0.400 


0.200 


0.200 


0.075 


0.125 


0.050 


0.075 


0.025 


0.050 


• 05 


0.000 
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FACTOR AVERAGE VALUE 



INVESTMENT C IN DOLLARS) 999.43 

SELLING PRICE (IN DOLLARS) 1.00 

MARKET GROWTH RATE (* PER YEAR) 2.80 

SHARE OF MARKET (*) 49.55 

RESIDUAL VALUE OF INVESTMENT (IN DOLLARS) 107.86 

OPERATING COSTS (IN DOLLARS PER UNIT) 0.51 

FIXED COSTS (IN DOLLARS PER YEAR) 49.84 

USEFUL LIFE (IN YEARS) 9.87 

DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JSjHlliXl^ 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



STOCK VALUATION 



GSTKVL 
36545 



The program computes the present value of a stock, based on alternative 
assumptions about the growth rates for dividends and earnings, the 
terminal price/earnings ratio, and the relevant rate of discount. 

The user must include data statements, beginning at line 1000, indicating 
for each of a number of time segments: 

a) the growth rate in dividends per share 

b) the payout ratio 

c) the final period of the segment 

The program will request: 

a) the current earnings per share 

d) a range of terminal price/earnings ratios to be analyzed 
c) a range of returns (discount rates) to be analyzed 

The ranges will be divided into equally spaced values and a table of implied 
present values for the stock printed. 

Example 

Florida Power has averaged about 9% qrowth in EPS over the past few years. 
We assume that eventually this unusually rapid growth will slow. Presumably 
at that time Florida Power's P/E ratio will drop to that of a "non-growth" 
utility (currently 10 to 13) and the firm will probably be paying out about 
70% of earnings in dividends; the current payout ratio is 55%. Based on 
this and other information, suppose we make the following projections: 



Time Period 


EPS Growth Rate 


Payout Ratio 


Next 5 years 
Years 6-10 


8% 
6% 


.60 
.65 



Furthermore, we assume that in year 10, Florida Power shares will sell at 
10 to 13 times earnings. Latest 12 month EPS are $2.94. High grade bonds 
are yielding around 8%. The attached example run shows how to find the 
prices we could pay for Florida Power stock and earn annual returns of 
between 8 and 15 percent over the next 10 years, assuming our forecasts 
are valid. 
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RUN 

RUN 
GSTKVL 

HAVE YOU ENTERED YOUR DATA STATEMENTS? NO 

EACH CASE REQUIRES THE FOLLOWING DATA -- 
THE NUMBER OF SEGMENTS 
THEN, FOR EACH SEGMENT -- 

THE GROWTH RATE IN DIVIDENDS PER SHARE 

PAYOUT RATIO 

FINAL PERIOD OF THE SEGMENT 

ENTER DATA STATEMENTS BEGINNING AT LINE 1000 

FOR MULTIPLE RUNS, SIMPLY PROVIDE ADDITIONAL SETS OF DATA 

AFTER DATA STATEMENTS HAVE BEEN ENTERED, RE-RUN THE PROGRAM 

DONE 

1000 DATA 2, .06, .6, 5, .06, .65, 10 

RUN 

GSTKVL 

HAVE YOU ENTERED YOUR DATA STATEMENTS? YES 

CURRENT EARNINGS/ SHARE? 2. 94 



GROWTH RATES 


-- 








PERIOD 1 


.06 








PERIOD 2 


.06 








RANGE OF TERMINAL P/E RATIOS — 






LOW? 10 










HIGH? 13 










RANGE OF RETURNS DESIRED 


(DECIMAL) -- 






LOW?. 08 










HIGH?. 15 










RETURN 


10 


11 


12 


13 


.08 


40.7778 


43.2166 


45.6553 


48.0941 


.0975 


35.5739 


37.6506 


39.7272 


41 .8038 


.1 15 


31.1527 


32.9254 


34.6982 


36.471 


.1325 


27.3835 


28.9007 


30.4178 


31 .9349 


.15 


24.1597 


25.4611 


26.7626 


28.064 



CODES FOR NEXT TASK: 

0: ALL NEW DATA 

1: SAME CURRENT EPS, NEW PROJECTIONS 

2: NEW EPS, SAME PROJECTIONS 

3: STOP 
NEXT TASK? 3 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM ISAbl\/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



SECURITIES EPS GROWTH 



GTHOR 
36553 



This program finds the number of years of constant growth in earnings per 
share required to justify the current price of a stock. It also provides 
the present values of the dividends and terminal share price for one less 
year of growth. 



All input is from the terminal. The program asks the user to enter the 
growth rate, the current share price, earnings per share, initial growth 
rate in EPS, number of years of declining growth, discount rate, and 
current payout ratio. 
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RUN 

RUN 
GTHOR 



DO YOU WANT INSTRUCTIONS?YES 



THIS PROGRAM FINDS THE NUMBER OF YEARS OF CONSTANT GROWTH 
IN EARNINGS PER SHARE REQUIRED TO JUSTIFY THE CURRENT SHARE 
PRICE. YOU MUST SPECIFY THE INITIAL GROWTH RATE IN EPS AND 
THE NUMBER OF YEARS DURING WHICH THIS GROWTH RATE WILL 
DECLINE TO 4 PERCENT (OR .04 > PER YEAR. 

IN ADDITION TO PROVIDING THE NUMBER OF YEARS OF CONSTANT 
GROWTH REQUIRED AT THE RATE YOU SPECIFY, THE PROGRAM ALSO 
PROVIDES THE PRESENT VALUES OF THE DIVIDENDS AND TERMINAL 
SHARE PRICE FOR ONE LESS YEAR OF GROWTH. THIS ENABLES 
YOU TO EXAMINE THE SENSITIVITY OF YOUR ASSUMPTIONS. 

IN COMPUTING ANNUAL DIVIDENDS THE PROGRAM ASSUMES THAT 
THE PAYOUT RATIO WILL REMAIN AT ITS CURRENT LEVEL FOR FIVE 
YEARS AND THEN CHANGE GRADUALLY UNTIL IT REACHES .6 
IN THE YEAR WHEN ANNUAL GROWTH IN EPS DROPS TO 4 PERCENT 

IF YOU WANT TO USE A FINAL GROWTH RATE OTHER THAN .04 

TYPE IT (AS A DECIMAL); OTHERWISE TYPE .04 
GROWTH RATE? .04 

WHAT IS THE CURRENT SHARE PR ICE? 66 

EARNINGS PER SHARE72.87 

INITIAL GROWTH RATE IN EPS (AS A DECIMAL)?. 10 

NUMBER OF YEARS OF DECLINING GR0WTH76 

THE DISCOUNT RATE (AS A DECIMAL)? .12 

THE CURRENT PAYOUT RATIO (AS A DECIMAL)?. 48 

YOUR INPUT IMPLIES A FINAL P/E RATIO OF 7.5 

IF THIS IS NOT SATISFACTORY YOU MAY CHANGE IT BY TYPING 
ANOTHER P/E RATIO; OTHERWISE TYPE 0. VALUE? 12 



PRICE OF 66 ASSUMES 41 YEARS OF CONSTANT GROWTH IN EPS. 
THE PRESENT VALUE (INTRINSIC VALUE) IS 59.1801 
INTRINSIC VALUE FOR Nl> 40 IS 58.7523 
SHARE PRICE IN 46 YEARS- 2337.91 

DO YOU WANT TO RUN MORE DATA? NO 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JtS AolL 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PLOTTING DATA 



GVPDQT 
36554 



These two programs allow the user to plot data from the GPDQ data bases and/or 
his own data bases. GVPDQT uses a teletype for output, and VPDQ uses the 
Tektronix 4010 terminal for output. For further information about the files, 
see the descriptions contained in this documentation, and a similar program, 
GCHLIN, HP No. 36503A. 



By and large, the programs provide the information required for their use. 
The user can select a fund from the GPDQF file, an index from the GPDQI file, 
a stock from the GPDQS file, or a record from a file in his own account named 
PDQP. Another file, STRING, whose entries form a subset of the ASCII charac- 
ter set, is also used by this program. 

(continued on page 2) 



For detailed instructions for using the Tektronix 4010 display, see "Special 
Considerations" section of VSUB, HP No. 36558, page 3. 
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INSTRUCTIONS : (continued) 

iPDQF 

6PDQF is a file of data on quarterly prices and dividends paid by 100 open-end mutual funds. The 
funds were chosen randomly from those for which data were readily available for the period 1965-1970. 
For each quarter, the following information is given: 

"opening price" 

- net asset value per share as of the close of the market on the last trading day 
of the previous quarter. 

"dividends" 

- all dividends received by an investor who held one share at the beginning of the quarter; 
any other distributions that qualify as income are also included. 

"ending price" 

- the total value of the holdings of an investor who held one share at the beginning 

of the quarter. This includes the net asset value of the share (or shares, in the case 
of splits) at the close of the market on the last trading day of the quarter. It also 
includes the value of any distributions received during the quarter that qualify as 
capital gains. 

Each fund is allocated one record on the file. Fund number 1 is on record 1; fund number 2 on record 
2, etc. Each record contains 40 quarters of information, as follows: 

opening price 1st quarter of 1st year 

dividends 1st quarter of 1st year 

closing price 1st quarter of 1st year 

opening price 2nd quarter of 1st year 

dividends 2nd quarter of 1st year 

closing price 2nd quarter of 1st year 

etc. 

Any missing value is represented by -999. 

Following the 120 data values on each record are: 

- the first year for which data are given (e.g. 1963) 

- the name of the fund (up to 20 characters) 

This file uses the same format as GPDQI and GPDQS. The funds are listed as follows: 

1 ABERDEEN FUND 

2 AFFILIATED FUND INC. 

3 AMERICAN BUSINESS SHARES INC. 

4 AMERICAN INVESTORS FUND INC. 

5 AMERICAN MUTUAL FUND INC. 

6 ANCHOR - FUNDAMENTAL INVESTORS 

7 ANCHOR - GROWTH FUND 

8 ASSOCIATED FUND TRUST 

9 AXE-HOUGHTON FUND A INC. 

10 AXE-HOUGHTON FUND B INC. 

11 AXE-HOUGHTON STOCK FUND INC. 

12 AXE SCIENCE CORP. 

13 BOSTON FUND INC. 

14 BROAD STREET INVESTING CORP. 

15 BULLOCK FUND LTD. 

16 CENTURY SHARES TRUST 
1.7 CHASE FUND OF BOSTON 

18 CHASE SHAREHOLDERS TRUST OF BOSTON 

19 CHEMICAL FUND INC. 

20 COLONIAL FUND INC. 

21 AMERICAN EXPRESS INCOME FUND INC. 

22 AMERICAN EXPRESS INVESTMENT FUND INC. 

23 AMERICAN EXPRESS STOCK FUND INC. 

24 COMPOSITE BOND AND STOCK FUND 

25 COMPOSITE FUND INC. 
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26 CONCORD FUND INC. 

27 DE VEGH MUTUAL FUND INC. 

28 DELAWARE FUND INC. 

29 BULLOCK — DIVIDEND SHARES INC. 

30 DREYFUS FUND INC. 

31 ENERGY FUND INC. 

32 EQUITY FUND INC. 

33 FIDELITY CAPITAL FUND INC. 

34 FIDELITY FUND INC. 

35 FINANCIAL INDUSTRIAL FUND 

36 FLORIDA GROWTH FUND INC. 

37 FOUNDERS MUTUAL FUND 

38 GROUP SECURITIES INC. — COMMON STOCK FUND 

39 GROWTH INDUSTRY SHARES INC. 

40 GUARDIAN MUTUAL FUND INC. 

41 HAMILTON FUNDS INC. -- SERIES HDA 

42 INCOME FUND OF BOSTON INC. 

43 INVESTMENT COMPANY OF AMERICA 

44 INVESTMENT TRUST OF BOSTON 

45 INVESTORS RESEARCH FUND INC. 

46 ISTEL FUND INC. 

47 JOHNSTON MUTUAL FUND INC. 

48 KEYSTONE CUSTODIAN FUND B-l 

49 KEYSTONE CUSTODIAN FUND B-2 

50 KEYSTONE CUSTODIAN FUND B-4 

51 KEYSTONE CUSTODIAN FUND K-l 

52 KEYSTONE CUSTODIAN FUND K-2 

53 KEYSTONE CUSTODIAN FUND S-l 

54 KEYSTONE CUSTODIAN FUND S-2 

55 KEYSTONE CUSTODIAN FUND S-3 

56 KEYSTONE CUSTODIAN FUND S-4 

57 KNICKERBOCKER FUND 

58 KNICKERBOCKER GROWTH FUND INC. 

59 LIFE INSURANCE INVESTORS INC. 

60 LOOMIS-SAYLES MUTUAL FUND 

61 MAGNA INCOME TRUST 

62 MASSACHUSETTS INVESTORS GROWTH STOCK FUND 

63 MASSACHUSETTS INVESTORS TRUST 

64 MUTUAL SHARES CORP. 

65 MUTUAL TRUST 

66 NATIONAL INVESTORS CORP. 

67 NATIONAL SECURITIES SERIES - BALANCE SERIES 

68 NATIONAL SECURITIES SERIES -- BOND SERIES 

69 NATIONAL SECURITIES SERIES — DIVIDEND SERIES 

70 NATIONAL SECURITIES SERIES — PREFERRED STOCK SERIES 

71 NATIONAL SECURITIES SERIES -- INCOME SERIES 

72 NATIONAL SECURITIES SERIES -- STOCK SERIES 

73 NATIONAL SECURITIES SERIES -- GROWTH STOCK SERIES 

74 ONE WILLIAM STREET FUND INC. 

75 OPPENHEIMER FUND INC. 

76 PENN SQUARE MUTUAL FUND 

77 PHILADELPHIA FUND INC. 

78 PINE STREET FUND INC. 

79 PIONEER FUND INC. 

80 PRICE (T. ROWE) GROWTH STOCK FUND 

81 PURITAN FUND INC. 

82 PUTNAM (GEORGE) FUND 

83 PUTNAM GROWTH FUND 

84 SCUDDER STEVENS AND CLARK - BALANCED FUND 

85 SCUDDER STEVENS AND CLARK - COMMON STOCK FUND 

86 SIGMA INVESTMENT SHARES 

87 SIGMA TRUST SHARES 

88 SOUTHWESTERN INVESTORS INC. 

89 SOVEREIGN INVESTORS INC. 

90 STEIN ROE AND FARNHAM - BALANCED FUND 

91 STEIN ROE AND FARHNAME - STOCK FUND 

92 TWENTIETH CENTURY GROWTH INVESTORS 

93 VALUE LINE FUND INC. 

94 VALUE LINE INCOME FUND INC. 

95 VALUE LINE SPECIAL SITUATIONS FUND 

96 WALL STREET INVESTING CORP. 

97 WASHINGTON MUTUAL INVESTORS FUND INC. 

98 WELLINGTON FUND INC. 

99 WHITEHALL FUND INC. 

100 WISCONSIN FUND INC. 
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GPDQS 

GPDQS is a file of quarterly prices and dividends for the thirty stocks used in 1971 to compute 
Jow-Jones' Industrial Average. For each quarter, the following information is given: 

"opening price" 

- this is the price of one share of the stock as of the close of trading on the last 
trading day of the previous quarter. 

"dividends" 

- this includes all dividends received during the quarter by a person who held one share 
at the beginning of the quarter. Any distribution treated as income is also included. 

"closing price" 

- this is the value of the holdings of an investor who held one share at the beginning 
of the quarter. The value is calculated as of the close of the last trading day in 
the quarter. 

Each stock is allocated one record on the file. Stock number 1 is on record 1; stock 2 on record 2, 
etc. Each record contains 40 quarters of information as follows: 

opening price 1st quarter of 1st year 

dividends 1st quarter of 1st year 

closing price 1st quarter of 1st year 

opening price 2nd quarter of 1st year 

dividends 2nd quarter of 1st year 

closing price 2nd quarter of 1st year 

etc. 

Any missing value is represented by -999. 

Following the 120 data values on each record are: 

- the first year for which data are given (e.g., 1963) 

- the name of the stock (up to 20 characters) 

The file uses the same format as GPDQI and GPDQF. The stocks are listed as follows: 



1 


ALLIED CHEMICAL 


2 


ALUMINUM COMPANY OF AMERICA 


3 


AMERICAN BRANDS 


4 


AMERICAN CAN COMPANY 


5 


AMERICAN TELEPHONE AND TELEGRAPH 


6 


ANACONDA 


7 


BETHLEHEM STEEL 


8 


CHRYSLER CORPORATION 


9 


DUPONT (E.I.) DE NEMOURS 


10 


EASTMAN KODAK 


11 


GENERAL ELECTRIC 


12 


GENERAL FOODS 


13 


GENERAL MOTORS 


14 


GOODYEAR TIRE AND RUBBER 


15 


INTERNATIONAL HARVESTER 


16 


INTERNATIONAL NICKEL COMPANY OF CANADA 


17 


INTERNATIONAL PAPER COMPANY 


18 


JOHNS-MANVILLE CORPORATION 


19 


OWENS-ILLINOIS 


20 


PROCTER AND GAMBLE 


21 


SEARS ROEBUCK 


22 


STANDARD OIL OF CALIFORNIA 


23 


STANDARD OIL OF NEW JERSEY 


24 


SWIFT AND COMPANY 


25 


TEXACO 


26 


UNION CARBIDE 


27 


UNITED AIRCRAFT 


28 


U.S. STEEL 


29 


WESTINGHOUSE ELECTRIC 


30 


W00LW0RTH (F.W.) COMPANY 
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GPDQI 

GPDQI is a file of quarterly prices and dividends for 98 common stock indices published 
by Standard and Poor's and returns on 90-day Treasury bills. For each quarter, the 
following information is given: 

"opening price" 

- this is the value of the index as of the end of the previous quarter, as 
reported by Standard and Poor's. 

"dividends" 

- this is the value of dividends paid by the stocks in the index during the 
quarter, as reported by Standard and Poor's. 

"closing price" 

- this is the value of the index as of the end of the quarter, as reported 
by Standard and Poor's. 

Each index is allocated one record on the file. Index number 1 is on record 1; 
index 2 on record 2, etc. Each record contains 120 numbers, as follows: 

opening price 1st quarter of 1st year 

dividends 1st quarter of 1st year 

closing price 1st quarter of 1st year 

opening price 2nd quarter of 1st year 

dividends 2nd quarter of 1st year 

closing price 2nd quarter of 1st year 

Any missing value is represented by -999. 

Following the 120 data values on each record are: 

- the first year for which data are given (e.g., 1963) 

- the name of the index (up to 20 characters) 
For 90-day Treasury bills, the three values are: 

"opening price" 

- the average of the bid and ask prices at the end of the previous quarter 
for the 90-day bill expiring on the date nearest the end of the quarter 
(e.g., 98.8) 

"dividends" 

- zero 
"closing price" 

- 100 

The file uses the same format as GPDQF and GPDQS. The indexes are listed as follows: 



1 


500 STOCKS 


2 


425 INDUSTRIALS 


3 


20 RAILS 


4 


55 UTILITIES 


5 


CAPITAL GOODS 


6 


CONSUMER PRODUCTS 


7 


HIGH GRADE 


8 


LOW PRICED 


9 


AEROSPACE 


10 


AIR TRANSPORT 


11 


ALUMINUM 


12 


AUTOMOBILE 


13 


AUTO PARTS 


14 


AUTO TRUCKS & PARTS 


15 


BREWERS 


16 


DISTILLERS 


17 


SOFT DRINKS 


18 


CEMENT 


19 


HEATING & PLUMBING 
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20 


ROOFING & WALLBOARD 


21 


HOME FURNISHINGS 


22 


CHEMICALS 


23 


BITUMINOUS COAL 


24 


CONFECTIONERY 


25 


CONTAINERS - METAL & GLASS 


26 


CONTAINERS - PAPER 


27 


COPPER 


28 


DRUGS 


29 


ELECTRICAL EQUIPMENT 


30 


ELECTRICAL HOUSEHOLD APPLIANCES 


31 


ELECTRONICS 


32 


BUILDING MATERIALS COMPOSITE 


33 


FINANCE COMPANIES 


34 


SMALL LOAN 


35 


FOOD - BISCUIT BAKERS 


36 


FOOD - BREAD & CAKE 


37 


FOOD - CANNED 


38 


FOOD - CORN REFINERS 


39 


FOOD - DIARY PRODUCTS 


40 


FOOD - MEAT PACKING 


41 


FOOD - PACKAGED FOODS 


42 


GOLD MINING 


43 


LEAD & ZINC 


44 


MACHINE TOOLS 


45 


AGRICULTURAL MACHINERY 


46 


CONSTRUCTION & MATERIAL HANDLING 


47 


INDUSTRIAL MACHINERY 


48 


OIL WELL EQUIPMENT 


49 


SPECIALTY MACHINERY 


50 


STEAM GENERATING EQUIPMENT 


51 


METAL FABRICATING 


52 


METAL MISCELLANEOUS 


53 


MOTION PICTURES 


54 


OFFICE EQUIPMENT 


55 


CRUDE OIL PRODUCERS 


56 


INTEGRATED OILS - DOMESTIC 


57 


INTEGRATED OILS - INTERNATIONAL 


58 


PAPER 


59 


PUBLISHING 


60 


RADIO & TV BROADCASTERS 


61 


RADIO & TV MANUFACTURERS 


62 


RAILROAD EQUIPMENT 


63 


TEXTILES - SYNTHETIC FIBERS 


64 


DISCOUNT STORES 


65 


DEPARTMENT STORES 


66 


FOOD STORES 


67 


MAIL ORDER 


68 


VARIETY STORES 


69 


SHIPBUILDING 


70 


SHIPPING 


71 


SHOES 


72 


SOAPS 


73 


STEEL 


74 


SUGAR-BEET REFINERS 


75 


FOOD COMPOSITE 


76 


SUGAR-CAN REFINERS 


77 


SULPHUR 


78 


TEXTILES - APPAREL MAHUFACTURERS 


79 


TEXTILE PRODUCTS 


80 


TIRE & RUBBER 


81 


TOBACCO - CIGARETTE MANUFACTURERS 


82 


TOBACCO - CIGAR MANUFACTURERS 


83 


VEGETABLE OILS 


84 


VENDING MACHINES 


85 


ELECTRIC COMPANIES 


86 


NATURAL GAS DISTRIBUTORS 


87 


PIPELINES 


88 


TELEPHONE 


89 


BANKS - NEW YORK CITY 


90 


BANKS - OUTSIDE NEW YORK CITY 


91 


OIL COMPOSITE 


92 


INSURANCE - FIRE & CASUALTY 


93 


INSURANCE - LIFE 


94 


INVESTMENT COMPANIES 


95 


COSMETICS 


96 


ELECTRONIC MAJOR COMPANIES 


97 


HOLDING COMPANIES 


98 


TRUCKERS 


99 


90-DAY TREASURY BILLS 
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RUN 

RUN 
GVPDQT 

ITEM <A-G, •?' FOR INFORMATION)?? 

A) PRICE: STOCK PRICE/SHARE/ INDEX LEVEL, FUND NAV/SHARE 

B> PRICE RETURN: PERCENTAGE CHANGE IN (A) PER QUARTER 

C) DIVIDEND 

D) DIVIDEND YIELD; QUARTERLY DIVIDEND/PRICE AT END OF PREVIOUS QUARTER 

E) RETURN: (B) + <C> 

F) CUMULATIVE VALUE WITH DIVIDENDS REINVESTED 

G) CUMULATIVE VALUE WITH DIVIDENDS IGNORED 

ITEM (A-G, '?• FOR INFORMATION)? A 
FUND., INDEX, STOCK OR PORTFOLIO? INDEX 
NUMBER? 1 

DO YOU WANT TO PLOT ANYTHING ELSE? YES 
ITEM (1-3, '?' FOR INFORMATION)?? 

1) THE SAME TYPE OF DATA FOR ANOTHER STOCK, INDEX, FUND OR PORTFOLIO 

2) A STRAIGHT-LINE TREND FIT TO THE DATA BY LEAST-SQUARES REGRESSION 

3) A MOVING AVERAGE OF THE DATA 
ITEM <l-3, '?• FOR INFORMATION)? 3 
NUMBER OF QUARTERS FOR MOVING AVERAGE? 4 
REGULAR SCALE OR LOGARITHMIC? REGULAR 
PRICE 

*: 500 STOCKS 

+: MOVING AVERAGE 

B: BOTH * AND + 



MINIMUM VALUE = 
MAXIMUM VALUE * 



63.09 
103.85 



1963/1 


63.090 


N/A 


1963/2 


66.560 


N/A 


1963/3 


69.360 


N/A 


1963/4 


71 .690 


67.675 


1964/1 


75.010 


70.655 


1964/2 


78.970 


73.758 


1964/3 


81 .680 


76.838 


1964/4 


84.170 


79.958 


1965/1 


84.750 


82.393 


1965/2 


86.150 


84.187 


1965/3 


84.110 


84.795 


1965/4 


89.950 


86.240 


1966/1 


92.420 


88.158 


1966/2 


89.220 


88.925 


1966/3 


84.730 


89.080 


1966/4 


76.550 


85.730 


1967/1 


80.320 


82.705 


1967/2 


90.190 


82.948 


1967/3 


90.630 


84.423 


1967/4 


96.700 


89.460 


1968/1 


96.460 


93.495 


1968/2 


90.190 


93.495 


1968/3 


99.570 


95.730 


1968/4 


102.660 


97.220 


1969/1 


103.850 


99.068 


1969/2 


101 .500 


101.895 


1969/3 


97.700 


101 .428 


1969/4 


93.110 


99.040 


1970/1 


92.050 


96.090 


1970/2 


89.620 


93.120 


1970/3 


72.710 


86.873 


1970/4 


84.200 


84.645 


1971/1 


92.140 


84.668 


1971/2 


100.310 


87.340 


1971/3 


99.700 


94.088 


1971/4 


98.340 


97.623 


1972/1 


102.090 


100.110 


1972/2 


N/A 


N/A 


1972/3 


N/A 


N/A 


1972/4 


N/A 


N/A 


1973/1 


N/A 


N/A 


1973/2 


N/A 


N/A 


1973/3 


N/A 


N/A 


1973/4 


N/A 


N/A 




BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JtS aS^II^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



CALCULATE AIRFREIGHT RATES 



IATA2J 
36164 



IATA.l calculates the weight breakpoints for a given commodity between 
any two airports based on: the minimum air waybill charge, the normal 
rate (under 100 pound rate), and the rates for each weight class within 
the commodity being rated. The resulting table is generated on the 
terminal based on data inputted from the keyboard or from the file 
AIRRAT. The program also provides for file maintenance (additions or 
deletions). 

Ogeft- two files: AIRRAT and RATAIR. Each record of the file holds 
approximately 3.5 sets of data. Therefore, if you open the files for 
20 records, you should have room for 70 sets of rate data. 

Limit your inputs as follows: Airport codes=3 letters, specific 
commodity=5 characters, commodity description=34 characters, date=6 
characters (use format DDMMMY). This program consists of 3 sections: 
l=data entry from keyboard, 2=data entry from file AIRRAT, 3=additions 
and/or deletions to file AIRRAT, and 4=terminate program. 

Preparing a worksheet with all of the data required (as shown) to use the 

program beforehand would be advantageous to the user. The option of 

printing multiple copies may be equal to or less than other means of 
duplication. 

The program is written so that new additions to the file are added after 
the last existing record on the file, therefore, if you add new rates 
first and then delete the existing old rates, the program will only 
delete the first set of data (based on the deletion parameters) encountered 
which should be the old rate data. 

If the user attempts to use data which is not on the file, the program 
will advise that the record is not on file. 



Jeff Johnson 
Hewlett-Packard/Eastern Sales Region 
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RUN 



C<*« 0J2EN-AIRRAT# 10 
can. OPEf»-RATAIR#10 

RUN 

I ATA. 1 

INSTRUCTI0NS7YES 

IATA.R CALCULATES BREAKPOINT WEIGHTS BASED ON DATA 

SUPPLIED BY THE USERCEITHER FROM THE KEYBOARD OR FILE 

AIRRAT) AND THEN PRINTS A TABLE SUITABLE FOR USE IN RATING* 

PREPARING AND CHECKING AIR WAYBILLS. LIMIT YOUR INPUTS AS 

FOLLOWS:AIRPORT C0DES=3 LETTERS#SPECIFIC C0MM0DITY=5 

CHARACTERS#COMMODITY DESCRIPTI0N=34 CHARACTERS* DATE=6 

CHARACTERSCUSE FORMAT DDMMMY). THIS PROGRAM CONSISTS OF 3 

SECTIONS! 1=DATA ENTRY FROM KEYB0ARD,2=DATA ENTRY FROM FILE 

AIRRAT#3=ADDITIONS AND/OR DELETIONS TO FILE AIRRAT*AND 4= 

TERMINATE PROGRAM. ENTER THE APPROPRIATE RESPONSE BELOW. 

SECTION <l#2*3#OR 4)71 

# OF RATE CLASSES IN THIS COMMODITY = 74 

ORIGIN AIRPORT7JFK 

DESTINATION AIRPORT7VIE 

SPECIFIC C0MM0DITY74316 

COMMODITY DESCRIPTION7DATA PROCESSING SYSTEM 

EFFECTIVE DATE OF RATES? 1AUG0 

MINIMUM AIR WAYBIL CHARGE IN $722.00 

NORMAL RATE IN S? 1 . 5 1 

ENTER DATA AS REQUIRED 

RATE 1= $7.54 

WEIGHT 1=?100 

RATE 2= $?.40 

WEIGHT 2=?440 

RATE 3= $?.31 

WEIGHT 3=?1100 

RATE 4= $?.27 

WEIGHT 4=72200 

HOW MANY COPIES? 1 



ORIGINATING AIRPORT JFK 

DESTINATION AIRPORT VIE 

SPECIFIC COMMODITY 4316 

COMMODITY DESCRIPTION.... DATA PROCESSING SYSTEM 



ACT GROSS 


WT 


1 


TO 


14 


15 


TO 


35 


36 


TO 


100 


101 


TO 


325 


326 


TO 


440 


441 


TO 


852 


853 


TO 


1 100 



CHARGEABLE WT RATE/LB 
DECLARE AS MINIMUM 



ACTUAL 
100 

ACTUAL 
440 

ACTUAL 
1100 



$1.5100 
$0.5400 

$0.5400 
$0.4000 

$0.4000 
$0.3100 



CHARGES 

$ 22.00 

AS EXTENDED 
$ 54.00 

AS EXTENDED 
$ 176.00 

AS EXTENDED 
$ 341.00 



1101 TO 1916 
1917 TO 2200 



ACTUAL 
2200 



$0.3100 
$0.2700 



AS EXTENDED 
$ 594.00 



2201 TO 



ACTUAL 



$0.2700 



AS EXTENDED 



EFFECTIVE DATE OF RATES.. 1AUG0 



MORE7NO 

SECTION (W2*3*0R 4>?3 
ADD OR DELETE7ADD 
ENTER NEW DATA 
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N=?2 

A$==?JFK 

DS=?VIE 

S$=?7 10W 

C$*?LITERATURE 

RS=?1AUG0 

M =722.00 

=71.51 

Rl=$?.37 

W 1= ?100 

R2=$?.26 

W 2= ? 1 1 00 

D0NE7YES 

SECTION C1,2*3#0R 4)?4 

DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

BASIC 



CONTRIBUTED PROGRAM 



IATA# 
36241 



CALCULATES BREAKPOINT OF IATA CONTAINERS 



This program helps any potential user of IATA containers to evaluate 
his own breakpoint weight and volume for his particular commodity. 
The breakpoint weights and volume derived under the column headed- 
Revised- indicate the point at which the shipper will gain no advantage 
(except better security and lighter packaging) in utilizing a given 
container, assuming it would cost the user nothing additional to handle, 
load and unload the container. The program is designed as a simple 
tool to readily show any shipper interested in using an IATA container 
what his minimum weight and density of a given commodity must be before 
he can even consider utilizing IATA containers. In the sample run shown , 
he must have a minimum of 3267 lbs. with a density of at least 7.78 
lbs/ft 3 of Specific Commodity 8550 (Electronic Measuring Instruments) to 
justify using an IATA #3 container from JFK to GLA. This is the break- 
even point (if no additional costs are involved) at which shipping as a 
specific commodity or in a container are of equal cost. 



Limit the following input as shown: 



Origin Airport 
Destination Airport 
Container # 
Specific Commodity 



3 Characters 
3 Characters 
3 Characters 
5 Characters 



Reference: Air Cargo Tariff -Worldwide, #47 dated 1 July 72 

published by Swissair and Scandinavian Airlines System. 



ACKNOWLEDGEMENTS: 



None 



Jeff Johnson 

International Commercial Services East 
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RUN 



RUN 
IATA*C 

instructions?no 
us or metric? us 
origin airport? jfk 
destination airport7gla 
container #?3 
container volume»?420 
minimum weight»?4409 
m inimum charge=$?1176 
specific commodity? 8550 
Sp ecific commodity rate?. 36 

analysis of breakeven point 

for utilizing containers versus 

specific commodity rates 

from jfk to gla 
for iata container #3 

standard revised 

volumeccu.ft. ) 420 420 

minimum charge $1176.00 $1176.00 

minimum vgt(lbs) 4409 3267 

$/LB RATE $.27 $.36 (8550 > 

LBS/CU.FT. 10.50 7.78 



MORE? YES 

US OR METRIC7METRIC 
ORIGIN AIRPORT? JFK 
DESTINATION AIRPORT? GLA 
CONTAINER #?7 
CONTAINER VOLUME=?5.60 
MINIMUM WEIGHT"? 945' 
MINIMUM CHARGEa $7 558 
SPECIFIC COMMODITY? 8550 
SPECIFIC COMMODITY RATE?. 80 



ANALYSIS OF BREAKEVEN POINT 

FOR UTILIZING CONTAINERS VERSUS 

SPECIFIC COMMODITY RATES 

FROM JFK TO GLA 

FOR IATA CONTAINER #7 

STANDARD REVI SED 

VOLUMECCU* M) 5.60 5*60 

MINIMUM CHARGE $ 558.00 $ 558.00 

MINIMUM VGTCKGS3 945 697 

$/KG RATE $.59 $.80 (8550 > 

KGS/CU. M 169 125 



MORE7NO 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



IATATA ANALYSIS OF IATA AND ATA UNITIZATION PROGRAM 



IATATA 
36876 



ACKNOWLEDGEMENTS: 



IATATA is used in the analysis of the IATA and ATA Unitization (Container] 
Program. IATATA is structured so that a minimum amount of knowledge is 
required of the IATA and ATA Unitization Programs as established by the 
two airline groups. IATATA at the time of its completion (December 1973) 
is current in all IATA and ATA rules and regulations, with respect to 
each unitization program. It includes all container types in both 
programs. 



Open two files IATAID (4 records long) and CONTNR (4 records long). 
Then load and run program LOADR. This program initializes the two files 
and after it is run it need not be saved. Next load and save IATATA. 

IATA containers, IATA ID numbers 1 to 9 have several variations as 
follows: 

P = Pallet with net only. 

NSI = Non-Structural Ijloo. 

SI = Structural J_gloo. 

Therefore, to access the proper version of each container, indicate the 
full number such as 3NSI. The author designated IATA 8* so the difference 
could be shown between LD-1 and LD-3. 

The following sample problems reflect some IATA and ATA container ship- 
ments. The shipper owned container comparisons do not reflect in the 
non-IATA or ATA shipments the cost of the equivalent cardboard container. 
Some IATA problems supplied courtesy of Mike Baumann, Manager Cargo 
Services Training, Pan American World Airlines and some ATA problems 
courtesy of Les Milligan, Area Manager Cargo Sales, Trans World Airlines. 

SAMPLE PROBLEMS 

It has been suggested that shipper owned containers may carry little 
or no cost value because of the fact they have been used many times. 
The author assumed in all cases the shipment was one direction only 
and the full cost of the container is included in the analysis. 

Continued on Next Page. 

REFERENCES 

IATA Unitization Program -- a pamphlet issued 15 November 1972 by Inter- 
national Air Transport Association courtesy of Pan American World Airlines. 

IATA Unit Load Devices Manual, First Edition -- issued by authority of 
Traffic Director, International Air Transport Assn. Geneva, Switzerland. 

Cargo Air Tariff -- published by Air Canada, et. al . , Amsterdam, The 
Netherlands. 

Airline Cargo Tariff -- published by Scandinavian Airline System and 
Swissair. 

CAB Tariff 131 -- issued by Airline Tariff Publishers Inc., Agent, 
Washington, D.C. on behalf of the U.S. Airlines. 

Jeff Johnson 

HP International Commercial Services East 
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INSTRUCTIONS: Continued 



Sa mple I ATA Problems 

1. You have 904 pounds of electronic measuring instruments (parts), Specific Commodity Rate 8550 JFK 
to STR which moves at $ .41/pound (in a 2200 pound consolidation). You wish to use a DSC-225 IATA 
registered container with actual tare of 96 pounds costing $16.44 each. Evaluate. 

See Sample RUN -- IATA Problem #1 . 

2. You have 1105 pounds of literature (Specific Commodity 7103W) and 572 pounds of electronic measuring 
instruments (8550) which will fit in an IATA 8 (LD-1) between JFK and AMS. The rate for literature 
is $ .31/pound and instruments is $ .48. The container rate is $501.00 for 1676 pounds pivot with a 
rate of $ .26/pound over pivot. Actual tare weight of container is 285 pounds. Evaluate. 

See Sample RUN -- IATA Problem #2. 

3. You have 5926 pounds of machinery moving LAX to BKK which will fit in an IATA 5 container. The 
specific commodity rate per pound is $1.13 whereas the container rate is $3438.00 for the first 
3638 pounds and an over pivot rate of $ .88/pound. The actual tare weight of the container is 
550 pounds. Evaluate. 

See Sample RUN -- IATA Problem #3. 

4. You have 300 pounds of electronic parts (Specific Commodity 8550) which fit in a DSC-221 (COS) moving 
in a consolidation between SF0 and SIN at $ .98/pound. The actual tare is 18 pounds. Cost of the 
container is $5.44. Evaluate. 

See Sample RUN -- IATA Problem #4. 

5. You have 660 pounds of electronic parts (Specific Commodity 8550) and 440 pounds of General Cargo 
(Q) which fit in a C08 shipper owned container moving in a consolidation between SF0 and SIN at 

$ .98/pound and $1.55/pound respectively. The actual tare of the container is 93 pounds and costs 
$16.66. Evaluate. 

See Sample RUN -- IATA Problem #5. 

Sample ATA Problems 

1. You are shipping between SF0 and JFK 100 pounds of printed matter (4915) at .234/pound and 22 
pounds of general cargo at $ .52/pound which will fit in an E container costing $5.44 with an 
actual tare of 18 pounds. The general cargo rate is .2775. 

See Sample RUN -- ATA Problem #1. 

2. Same shipment as in Problem #1 except the following changes: 

100 pounds of 4915 at .234/pound. 

82 pounds of General Cargo at .2854/pound. 

See Sample RUN -- ATA Problem #2. 

3. The following QD container shipments are SF0 to JFK with an actual tare of 13 pounds and the 
container costs $4.00 containing the weights shown of cast aluminum wheels (7616). 

a. Net Weight: 92 
Rate/Pound: .2853 
General Cargo Rate: .2775 

b. Net Weight: 187 
Rate/Pound: .2775 
General Cargo Rate: .2775 

See Sample RUN — ATA Problem #3. 

4. Using a B container SF0 to JFK costing $50.00 with actual tare of 200 pounds containing 2000 pounds 
of printed matter (4915) at .2035 and 2000 pounds of cast aluminum wheels (7616) at .177. 

See Sample RUN -- ATA Problem #4. 

5. An A-3 container SF0 to JFK containing 10,000 pounds of cast aluminum wheels (7616) at .1635 for 
which the first 3200 pounds in the container costs $608.00 and the excess above is rated at .137/pound. 

See Sample RUN -- ATA Problem #5. 
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INSTRUCTIONS: Continued 



An A-3 container SFO to JFK contains: 5,000 pounds 7616 at 
. 208/pound, and 2,000 pounds of general cargo at .223. 



1635/pound, 5,000 pounds of 0001 at 



See Sample RUN -- ATA Problem #6. 

You have 4,000 pounds of floral stock (0625) at .117/pound and 3,500 pounds of grapes (0816) 

at .1355/pound loaded in an LD-7 moving SFO to JFK for which the base rate is $595.00 for the 

first 3100 pounds and the over pivot rate is .137. The actual tare of the container is 550 
pounds. 

See Sample RUN -- ATA Problem #7. 



RUN 

GET- IATATA 

RUN 

IATATA 

WOULD YOU LIKE A CONTAINER SUMMARY7YES 



SUMMARY OF UNIT LOAD DEVICES 







IATA 








ATA(US) 








MIN 






MAX 




MIN 




MAX 


IATA 


CHAR 6 


TARE 


EXT 


GROSS 


ATA 


CHRG 


TARE 


GROSS 


ID 


WGT 




VOLUME 


WGT 


ID 


WGT 




WGT 


1 


13200 





1280.0 


2 5000 


NONE 











2 


6297 


1000 


668.0 


15000 


NONE 











2A 








564.0 





NONE 











2B 








463.0 





NONE 











3P 





265 


465.0 


13300 


A'S 











3NSI 





550 


465.0 


13300 


A'S 











3SI 





550 


465.0 


13300 


A'S 











4P 





230 


365.0 


10000 


A'S 











4NSI 





500 


365.0 


10000 


A'S 











4ANSI 





500 


3 40.0 


8000 


A'S 











5P 





265 


375.0 


8300 


LD-7 








10200 


5NSI 





550 


360.0 


8300 


LD-7 





550 


10200 


SSI 





550 


350.0 


8300 


LD-9 





685 


10200 


6P 








265.0 


5680 


NONE 











7*P 





265 


198.0 


5000 


NONE 











7P 





338 


198.0 


52 50 


NONE 











7NSI 








217.0 


52 50 


NONE 











8 





280 


170.0 


3 500 


LD-1 


1300 


370 


3 500 


8 





280 


162.4 


3500 


LD-P 


1 100 


3 50 


3 500 


8* 





280 


160.0 


3 500 


LD-3 


1 100 


3 40 


3 500 


9P 





280 


160.0 


2 500 


NONE 











9NSI 





280 


167.0 


2 500 


NONE 











COl 





565 


377.0 


10000 


A'S 











C02 





480 


320.0 


10000 


A'S 











C03 





293 


195.0 


6686 


B 


1800 


200 


5000 


C04 





277 


184.0 


6686 


B 


1800 


200 


5000 


C05 





241 


160.0 


48 41 


B 


1800 


200 


5000 


C06 





22 5 


150.0 


48 41 


B 


1800 


200 


5000 


C07 


841 


142 


94.5 


4050 


LD-N 





100 


2 400 


C08 


551 


93 


61.9 


3303 


D 


500 


63 


2000 


C09 


396 


45 


44.4 


2666 


NONE 











CO0 


267 


30 


30.0 


2666 


NONE 











COJ 


565 


96 


63.4 


3383 


D 


500 


63 


2000 


COS 


160 


18 


18.0 


1691 


E 


130 


18 


500 


VAR. 








393.0 





A-l 


3000 





13000 


VAR. 








457.5 





A-2 


3100 





13000 


VAR. 








476.0 





A-3 


3200 





13000 


NONE 








98.9 





B-2 


900 


100 


2 500 


NONE 








12.0 





OD 


100 


13 


400 


NONE 








277.8 





LD-5 


2200 


630 


5000 


NONE 








340.0 





LD-6 








7000 


NONE 








256.6 





LD-1 1 


1800 





7000 
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NOTE:0 IN MINIMUM CHARGEABLE WEIGHT COLUMN INDICATES PIVOT WEIGHT VARIES 
BY TARIFF CONFERENCEC OR ORI GIN-DESTINAT-I ON COMBINATIONS). ZEROES IN 
VARIOUS OTHER FIELDS MEANS DATA NOT AVAILABLE OR NOT APPLICABLE. COJ 
AND COS CONTAINERS ARE FURTHER BROKEN DOWN INTO I ATA REGISTRATION 
NUMBERS FOR VARIATION OF THESE TWO CATEGORIES. IF YOU ARE GOING TO WORK 
WITH THESE TYPES, MAKE SURE YOU ENTER THE CORRECT REGISTRATION NUMBER 
(I.E. DSC-221). 

SAMPLE IATA PROBLEM No. 1 

I ATA OR ATA? I ATA 

CONTAINER OR REGISTRATION NUMBER7DSC-22 5 

ACTUAL TARE WEIGHT OF CONTAINER796 

HOW MANY COMMODITIES?! 

WGT 1=7904 

CONTAINER C0ST716.44 

RATE 1=?.41 

ORIGIN AIRPORT7JFK 

DESTINATION AIRPORT?STR 



ANALYSIS OF SHIPPING IN SHIPPER OWNED IATA 
CONTAINERS VS. NORMAL PACKAGING 
FROM JFK TO STR 
USING DSC-225 CONTAINER 

GROSS COST OF SHIPMENT OF 1000 LBS S 410.00 

PLUS CONTAINER COST 16.44 

LESS CONTAINER REBATE -16.20 

LESS TARE WEIGHT ALLOWANCE -39.36 

NET COST OF SHIPMENT 370.88 

COST IF NET CONTENTS ARE SHIPPED LOOSE 370.64 

COST IF SHIPPED IN NON-IATA CONTAINER 

OF EQUAL TARE WEIGHT 410.00 



SAMPLE IATA PROBLEM No. 2 
MORE7YES 

IATA OR ATA? I ATA 

CONTAINER OR REGISTRATION NUMBER78 

ELIGIBLE FOR SHIPPER OWNED CONTAINER DISCOUNT7NO 

MINIMUM CHARGEABLE NET WEIGHT? 1676 

ACTUAL TARE WEIGHT OF CONTAINER7285 

HOW MANY C0MM0DITIES72 

WGT l=?l 105 

WGT 2=?572 

RATE 1=?.31 

RATE 2=?. 48 

ORIGIN AIRPORT?'JFK 

DESTINATION AIRPORT7AMS 

CONTAINER CHARGE7501 

RATE/LB FOR EXCESS ABOVE PIVOT?. 26 



ANALYSIS OF SHIPPING IN AIRLINE OWNED IATA 

CONTAINER VS. SPECIFIC COMMODITY RATES 
FROM JFK TO AMS 
USING 8 CONTAINER 

MINIMUM CHARGEABLE WEIGHT OF 1676 LBS S 501.00 
PLUS EXCESS OF 1 LBS 0.26 

TOTAL CONTAINER COST $ 501.26 

COST IF NET CONTENTS ARE SHIPPED LOOSE $ 617.11 

SAVINGS OR LOSS(-) S 115.85 
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SAMPLE I ATA PROBLEM No. 3 

MORE?YES 

I ATA OR ATA? I ATA 

CONTAINER OR REGISTRATION NUMBER? 5NSI 

ELIGIBLE FOR SHIPPER OWNED CONTAINER DISCOUNT?NO 

MINIMUM CHARGEABLE NET WEIGHT73638 

ACTUAL TARE WEIGHT OF CONTAINER? 550 

HOW MANY COMMODITIES?l 

WGT 1=?5926 

RATE is? 1.1 3 

ORIGIN AIRPORT7LAX 

DESTINATION AIRPORT?BKK 

CONTAINER CHARGE73438 

RATE/LB FOR EXCESS ABOVE PIVOT?. 88 



ANALYSIS OF SHIPPING IN AIRLINE OWNED IATA 
CONTAINER VS. SPECIFIC COMMODITY RATES 
FROM LAX TO BKK 
USING 5NSI CONTAINER 

MINIMUM CHARGEABLE WEIGHT OF 3638 LBS $ 3438.00 
PLUS EXCESS OF 2288 LBS 2013-44 

TOTAL CONTAINER COST $ 5451.44 



COST IF NET CONTENTS ARE SHIPPED LOOSE 
SAVINGS OR LOSS(-) 



S 6696.38 
S 1244.94 



SAMPLE IATA PROBLEM No. 4 

MORE?Y 

IATA OR ATA? I 

CONTAINER OR REGISTRATION NUMBER7DSC-22 1 

ACTUAL TARE WEIGHT OF CONTAINER? 18 

HOW MANY COMMODITIES?l 

WGT 1=?300 

CONTAINER C0ST?5.44 

RATE 1=?,98 

ORIGIN AIRPORT7SFP-0 

DESTINATION AIRPORT7SIN 



ANALYSIS OF SHIPPING IN SHIPPER OWNED IATA 
CONTAINERS VS. NORMAL PACKAGING 
FROM SFO TO SIN 
USING DSC-22 1 CONTAINER 



GROSS COST OF SHIPMENT OF 318 LBS 
PLUS CONTAINER COST 
LESS CONTAINER REBATE 
LESS TARE WEIGHT ALLOWANCE 
NET COST OF SHIPMENT 



31 1.64 

5.44 

-4.00 

-17.64 

295.44 



COST IF NET CONTENTS ARE SHIPPED LOOSE 294.00 

COST IF SHIPPED IN NON-IATA CONTAINER 

OF EQUAL TARE WEIGHT 311.64 
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SAMPLE IATA PROBLEM No. 5 

MORE?Y 

IATA OR ATA?I 

CONTAINER OR REGISTRATION NUMBER7008 

DATA NOT ON FILE. 

IATA OR ATA? I 

CONTAINER OR REGISTRATION NUMBER7008 

DATA NOT ON FILE. 

IATA OR ATA?I 

CONTAINER OR REGISTRATION NUMBER?C08 

ELIGIBLE FOR SHIPPER OWNED CONTAINER DISCOUNT7YES 

ACTUAL TARE WEIGHT OF C0NTAINER?93 

HOW MANY COMMODITIES72 

WGT 1=?660 

WGT 2=7440 

CONTAINER C0ST716.44 

RATE 1=7.98 

RATE 2=71.55 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7SIN 



ANALYSIS OF SHIPPING IN SHIPPER OWNED IATA 
CONTAINERS VS. NORMAL PACKAGING 
FROM SFO TO SIN 
USING C08 CONTAINER 

GROSS COST OF SHIPMENT OF 1193 LBS $1472.95 

PLUS CONTAINER COST 16.44 

LESS CONTAINER REBATE -15.80 

LESS TARE WEIGHT ALLOWANCE -144.15 

NET COST OF SHIPMENT 1329.44 

COST IF NET CONTENTS ARE SHIPPED LOOSE 1328.80 

COST IF SHIPPED IN NON-IATA CONTAINER 

OF EQUAL TARE WEIGHT 1419.94 



SAMPLE ATA PROBLEM No. 1 

MORE7Y 

IATA OR ATA7ATA 

CONTAINER NUMBER7E 

ACTUAL TARE WEIGHT OF CONTAINER? 18 

HOW MANY COMMODITIES 72 

WGT 1=7100 

WGT 2=722 

CONTAINER C0ST75.44 

RATE 1=?.234 

RATE 2=7.52 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7JFK 

GENERAL CARGO RATE?. 2775 



ANALYSIS OF SHIPPING IN SHIPPER OWNED ATA 
CONTAINERS VS. NORMAL PACKAGING 
FROM SFO TO JFK 
USING E CONTAINER 

GROSS COST OF SHIPMENT OF 130 LBS $ 36.07 

PLUS CONTAINER COST 5.44 

NET COST OF SHIPMENT 41.51 

COST IF NET CONTENTS ARE SHIPPED LOOSE 34.84 

COST IF SHIPPED IN NON-ATA CONTAINER 

OF EQUAL TARE WEIGHT 39.05 
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SAMPLE ATA PROBLEM No. 2 

MORE7Y 

IATA OR ATA?A 

CONTAINER NUMBER7E 

ACTUAL. TARE WEIGHT OF CONTAINER? 18 

HOW MANY C0MM0DITIES72 

WGT 1=7100 

WGT 2=?82 

CONTAINER COST75.44 

RATE 1=7.234 

RATE 2=?. 2854 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7JFK 

GENERAL CARGO RATE?. 2775 



ANALYSIS OF SHIPPING IN SHIPPER OWNED ATA 
CONTAINERS VS. NORMAL PACKAGING 
FROM SFO TO JFK 
USING E CONTAINER 

GROSS COST OF SHIPMENT OF 164 LBS S 45.51 

PLUS CONTAINER COST 5.44 

NET COST OF SHIPMENT 50.95 

COST IF NET CONTENTS ARE SHIPPED LOOSE 46.80 

COST IF SHIPPED IN NON-ATA CONTAINER 

OF EQUAL TARE WEIGHT 51.01 



SAMPLE ATA PROBLEM No. 3 

MORE?Y 

IATA OR ATA? ATA 

CONTAINER NUMBER70D 

DATA NOT ON FILE. 

IATA OR ATA7ATA 

CONTAINER. NUMBER7QD 

ACTUAL TARE WEIGHT OF CONTAINER? 13 

HOW MANY COMMODITIES?l 

WGT 1=?92 

CONTAINER COST? 4 

RATE 1=7.2853 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7JFK 

GENERAL CARGO RATE?. 2775 



ANALYSIS OF SHIPPING IN SHIPPER OWNED ATA 
CONTAINERS VS. NORMAL PACKAGING 
FROM SFO TO JFK 
USING OD CONTAINER 

GROSS COST OF SHIPMENT OF 100 LBS $ 27.75 

PLUS CONTAINER COST 4.00 

NET COST OF SHIPMENT 31.75 

COST IF NET CONTENTS ARE SHIPPED LOOSE 26.25 

COST IF SHIPPED IN NON-ATA CONTAINER 

OF EQUAL TARE WEIGHT 29.96 



IATATA, Page 8 



MORE?Y 

IATA OR ATA?A 

CONTAINER NUMBER7QD 

ACTUAL TARE WEIGHT OF CONTAINER? 13 

HOW MANY COMMODITIES? 1 

WGT 1 =? 187 

CONTAINER COST74 

RATE 1=?.2775 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT?JFK 

GENERAL CARGO RATE?. 2775 



ANALYSIS OF SHIPPING IN SHIPPER OWNED ATA 
CONTAINERS VS. NORMAL PACKAGING 
FROM SFO TO JFK 
USING QD CONTAINER 

GROSS COST OF SHIPMENT OF 169 LBS $ 46.90 

PLUS CONTAINER COST 4.00 

NET COST OF SHIPMENT 50.90 

COST IF NET CONTENTS ARE SHIPPED LOOSE 51.89 

COST IF SHIPPED IN NON-ATA CONTAINER 

OF EQUAL TARE WEIGHT 55.50 



SAMPLE ATA PROBLEM No. 4 

MORE?Y 

IATA OR ATA?A 

CONTAINER NUMBER7B 

ACTUAL TARE WEIGHT OF CONTAINER?200 

HOW MANY C0MM0DITIES72 

WGT 1= 72000 

WGT 2=?2000 

CONTAINER COST?50 

USING THE MIXED SHIPMENT RULE CRULE 12, C • A.B. 1 3 1 ) * YOU MAY INPUT RATES 

EQUAL TO 4000 LBS FOR EACH COMMODITY IN THE CONTAINER. 

RATE ! = ?*►. 2035 

RATE 2=?. 177 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7JFK 

DAYLIGHT OR REGULAR ?REGULAR 

CONTAINER CHARGE7312 

RATE/LB FOR EXCESS ABOVE PIVOT?. 137 



ANALYSIS OF SHIPPING IN SHIPPER OWNED ATA 
CONTAINER VS. SPECIFIC COMMODITY RATES 
FROM SFO TO JFK 
USING B CONTAINER 

MINIMUM CHARGEABLE WEIGHT OF 
PLUS EXCESS OF 
PLUS CONTAINER COST 
TOTAL CONTAINER COST 

MIXED SHIPMENT RULE COST 
SAVINGS OR LOSS(-) 



1800 LBS 


£ 


312.00 


2200 LBS 




301.40 
50.00 




S 


663.40 




S 


78 1.00 




S 


1 17.60 
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SAMPLE ATA PROBLEM No. 5 

MORE?Y 

I ATA OR ATA? A 

CONTAINER NUMBER?A-3 

ACTUAL. TARE WEIGHT OF CONTAINER? 550 

HOW MANY COMMODITIES?l 

WGT 1=?10000 

RATE la?. 1635 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7JFK 

DAYLIGHT OR REGULAR 7REGULAR 

CONTAINER CHARGE?608 

RATE/LB FOR EXCESS ABOVE PIVOT?. 137 



ANALYSIS OF SHIPPING IN AIRLINE OWNED ATA 
CONTAINER VS. SPECIFIC COMMODITY RATES 
FROM SFO TO JFK 
USING A-3 CONTAINER 

MINIMUM CHARGEABLE WEIGHT OF 3200 LBS $ 608.00 
PLUS EXCESS OF 6800 LBS 931.60 

TOTAL CONTAINER COST J 1539.60 

COST IF NET CONTENTS ARE SHIPPED LOOSE $ 1635.00 
SAVINGS OR LOSS(-) $ 95.40 



SAMPLE ATA PROBLEM NO. 6 

MORE?Y 

IATA OR ATA?A 

CONTAINER NUMBER?A-3 

ACTUAL. TARE WEIGHT OF CONTAINER7550 

HOW MANY COMMODITIES73 

WGT 1 =7 5000 

WGT 2=?5000 

WGT 3=?2000 

USING THE. MIXED SHIPMENT RULE (RULE 12, C . A.B . 1 3 1 ) * YOU MAY INPUT RATES 

EQUAL TO 12000 LBS FOR EACH COMMODITY IN THE CONTAINER. 

RATE 1=7.1635 

RATE 2=?. 208 

RATE 3=?. 223 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7JFK 

DAYLIGHT OR REGULAR 7REGULAR 

CONTAINER CHARGE7608 

RATE/LB FOR EXCESS ABOVE PIVOT?. 137 



ANALYSIS OF SHIPPING IN AIRLINE OWNED ATA 

CONTAINER VS. SPECIFIC COMMODITY RATES 
FROM SFO TO JFK 
USING A-3 CONTAINER 

MINIMUM CHARGEABLE WEIGHT OF 3200 LBS $ 608.00 
PLUS EXCESS OF 8800 LBS 1205.60 

TOTAL CONTAINER COST $ 1813.60 

MIXED SHIPMENT RULE COST $ 2183.50 

SAVINGS OR LOSSC-) $ 369.90 



IATATA, Page 10 

SAMPLE ATA PROBLEM NO. 7 

M0RE7Y 

IATA OR ATA7A 

CONTAINER NUMBER7LD-7 

MINIMUM CHARGEABLE NET WEIGHT73 100 

ACTUAL TARE WEIGHT OF CONTAINER7550 

HOW MANY COMMODITIES72 

WGT 1=74000 

WGT 2=73500 

USING THE MIXED SHIPMENT RULE (RULE 12* C . A.B. 1 3 1 > > YOU MAY INPUT RATES 

EQUAL TO 7500 LBS FOR EACH COMMODITY IN THE CONTAINER. 

RATE 1=7.117 

RATE 2=7.1355 

ORIGIN AIRPORT7SFO 

DESTINATION AIRPORT7JFK 

DAYLIGHT OR REGULAR 7REGULAR 

CONTAINER CHARGE7595 

RATE/LB FOR EXCESS ABOVE PIVOT?. 137 



ANALYSIS OF SHIPPING IN AIRLINE OWNED ATA 
CONTAINER VS. SPECIFIC COMMODITY RATES 
FROM SFO TO JFK 
USING LD-7 CONTAINER 

MINIMUM CHARGEABLE WEIGHT OF 
PLUS EXCESS OF 
TOTAL CONTAINER COST 

MIXED SHIPMENT RULE COST 
SAVINGS OR LOSS(-) 



3100 LBS 


S 


595.00 


4400 LBS 




602.80 




$ 


1 197.80 




$ 


867.25 




$ 


-330.55 



MORE7N 
DONE 



Voaimewtation Date. 3/75 

BUSINESS AND MANUFACTURING APPLICATIONS (700) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



INPUT/OUTPUT ANALYSIS ON ECONOMIC FLOWS 



INZOUT 
36088 



A hypothetical economy is divided into a certain number of industries, 
and is analyzed as to the inter-industry flows of goods and services over 
a period of time. The analysis is based upon the data for a past period, 
and can be used to predict future flows under different conditions of 
consumer demand. 



In this example, the economy is divided into three industries. The number 
of industries, and their respective names, can be altered by changing the 
dim-statements and output routines. With the exception of these routines, 
the program is general, and will accept data for any 'M' number of 
industries. 

Data is read in the following order: 



The flows from: 



Industry #1 to 
Industry #1 to 
Industry #1 to 
Industry #1 to 
Industry #2 to 
Industry #2 to 
Industry #2 to 
Industry #2 to 
Industry #3 to 
Industry #3 to 



Industry #1 

Industry #2 

Industry #3, etc. to #M 

the Final Consumer 

Industry #1 

Industry #2 

Industry #3, etc. to #M 

the Final Consumer 

Industry #1, etc. to #M 

the Final Consumer 



This 



Industry #M to the Final Consumer 
is followed by a revised forecast of consumer demand from 



Industry #1, Industry #2, Industry #3,.. . .Industry #M 

In this example: 

Industry #1 is Agriculture 

Industry #2 is Industry 

Industry #3 is Service 



INZOUT is restricted as written, to 3 industries. To increase this 
number, change dimensions in lines 9200, 9205 and 9210. A,B, and X 
must be M x M. T, V, and C must be M, and D must be 2M + 1. Also 
change the output routine. 



August 1976 
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9900 DATA 25,12*8,75 

9901 DATA 15,75,65,99 

9902 DATA 10,51,88,34 

9903 DATA 82,85,40 
9999 END 

RUN 
INZOUT 

* INPUT/OUTPUT ANALYSIS * 

****************** ***#**********,(,**,(. *******,((******** ************ ****** 
INITIAL INPUT/OUTPUT TABLE: 



FROM SECTOR 



TO SECTOR 
AGRI CULTURE 



AGRI CULTURE 


25 


INDUSTRY 


15 


SERVICES 


10 


SECTOR INCOME 


70 


TOTAL 


120 



CONSUMERS TOTAL 



•USTRY 


SERVICES 






12 


8 


75 


120 


75 


65 


99 


254 


51 


88 


34 


183 


116 


22 


208 




254 


183 




557 



REVISED INPUT/OUTPUT TABLE NUMBER 1 



TO SECTOR 



FROM SECTOR 



CONSUMERS TOTAL 





AGRI CULTURE 


INDUSTRY 


SERVICES 






AGRI CULTURE 


26.7413 


11.3027 


8.31437 


82 


128.358 


INDUSTRY 


16.0448 


70.642 


67.5542 


85 


239.241 


SERVICES 


10.6965 


48.0366 


91.458 


40 


190.191 


SECTOR INCOME 


74.8757 


109.26 


22.8645 


207 




TOTAL 


128.358 


239.241 


190.191 




557.791 



********************************************************************** 
DONE 



Augusl 1976 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JSxXlS M\j 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



NATIONAL INCOME & PRODUCT ACCOUNTS 



INACNT 
36087 



INACNT produces a simple set of income and product accounts, dependent 
upon a number of input gross national product conditions. 



In order to use INACNT, the user must know six statistics, 
be requested by input statements. They are: 



They will 



A = the fraction of GNP saved by business 

B = the fraction of GNP paid in tax by business 

C = the fraction of personal income paid in personal taxes 

D = the fraction of personal after-tax income spent on consumption 

(above 4 values must be entered in decimal notation) 

14 = dollars of GNP eventually invested 
G3 = dollars for GNP spent by government 

(above 2 values must be entered in exponential form. Ex.: $50 billion 
5E + 10.) 



INACNT, page 2 
RUN 

GET-SINACNT 

RUN 

INACNT 

* NATIONAL INCOME * PRODUCT ACCOUNTS * 

THIS PROGRAM PRODUCES A SIMPLE SET OF INCOME AND PRODUCT ACCOUNTS. 

PLEASE ANSWER THE FOLLOWING QUESTIONS. 

1. WHAT FRACTION OF GNP IS SAVED BY BUSINESS7.il 

2. WHAT FRACTION OF GNP IS PAID IN TAX BY BUSINESS?. 32 

3. WHAT FRACTION OF PERSONAL INCOME IS PAID AS PERSONAL INCOME TAX?. 3-21 

4. WHAT FRACTION OF THE DISPOSABLE PERSONAL INCOME (I.E. AFTER-TAXES) 
IS SPENT ON CONSUMPTION?. 93 

HOW MUCH OF THE GNP IS INVESTED? (IN DOLLARS: EX.: 50 BILLION=5E+ 1 > . 
71.4E+1 1 

HOW MUCH OF GNP IS SPENT BY THE GOVERNMENT ? ( IN DOLLARS AS ABOVE.) 
?2.7E+1 1 

(DO YOU WISH A SENSITIVITY ANALYSIS ON ANY OF THE FIRST 4 INPUTS?) 

?YES 

WHICH INPUT? (1-4)?1 

ENTER THE LOW VALUE* HIGH VALUE, STEP? . 1 0* . 1 2» .01 

BUSINESS SAVINGS ARE 11 PERCENT OF GNP 

BUSINESS TAXES ARE 32 PERCENT OF GNP 

PERSONAL INCOME TAX IS 21 PERCENT OF PERSONAL INCOME 

PERSONAL CONSUMPTION IS 93 PERCENT OF DISPOSABLE PERSONAL INCOME 

THE GNP MULTIPLIER IS 1.720 52 

THE CONSUMPTION MULTIPLIER IS .720516 

THE TAX MULTIPLIER IS .756511 



** RUN # 1 :BUSINESS SAVING/GNP= .1 

PRODUCTION SECTOR (ACT.#1) 



PERSONAL INCOME 4.091 39E+ 1 1 CONSUMPTION 3.00594E+11 

BUSINESS TAXES 2.25732E+1 1 INVESTMENT L40000E+11 

BUSINESS SAVING 7.05411E+10 GOVT. SPENDING 2.70000E+11 



GROSS NAT. PRODUCT.. 7.05412E+11 GROSS NAT. PRODUCT.. 7.05412E+11 
PERSONAL SECTOR (ACT. #2) 



PERSONAL TAXES 8-59191E+10 PERSONAL INCOME 4.09139E+11 

CONSUMPTION 3.00594E+U 

PERSONAL SAVING 2.26254E+10 



PERSONAL INCOME 4.09139E+11 PERSONAL INCOME 4.09139E+11 

GOVERNMENT SECTOR (ACT. #3) 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM llAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



INCOME STATEMENT 



INSTMT 
36089 



INSTMT prints a simple income statement, and allows a sensitivity check 
on various input. 



Self-explanatory. 

The following data must be entered before running INSTMT. 
base year (1971) data entries: 

9537 DATA amount of sales 
9543 DATA cost of goods sold 
9549 DATA cost of advertising 
9555 DATA administrative expense 
9561 DATA tax loss carry forward 

All other DATA-statements remain undisturbed. 



These are all 



None 
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RUN 



RUN 
INSTMT 

* INCOME STATEMENT * 

THIS PROGRAM WILL PRINT A SIMPLE INCOME STATEMENT, AND WILL ALLOW A 
SENSITIVITY ANALYSIS ON VARIOUS INPUT. 



DO YOU WISH TO USE AVERAGE OR INDIVIDUAL GROWTH RATES? (ENTER 'AVG' 
OR 'IND')?AVG 

PLEASE ENTER THE FOLLOWING VALUES IN PERCENT: 
PERCENT GROWTH IN SALES ?10 

PERCENT GROWTH IN COST OF GOODS SOLD76 
PERCENT GROWTH IN ADVERTISING ?5 
PERCENT GROWTH IN ADMIN & GENERAL EX?8 

********************************************************************** 

INCOME STATEMENT 
S IN THOUSANDS 



YEARS 71 72 73 74 75 



SALES 1000 


1 100 


1210 


1331 


1464.1 


-CG SOLD 500 


530 


561 .8 


595.51 


631 .24 


- ADV 150 


157.5 


165.38 


173.64 


182.33 


- ADM&GEN 100 


108 


1 16.64 


125.97 


136.05 


=OPER INC 250 


304.5 


366.19 


435.88 


514.49 


♦TAX L.CF. 50 














- TAXES 89.5 


139.66 


169.27 


202.72 


240.45 


•NET INCOME 160.5 


164.84 


196.92 


233.16 


274.03 



PLEASE ENTER ONE OF THE FOLLOWING FOUR VALUES: 1) 'GROW TO HAVE 
THE GROWTH PERCENTAGES LISTED* 2) 'PERCENT' TO HAVE THE PERCENTAGE 
RELATIONSHIPS OF THE ITEMS TO SALES LISTED* 3) 'YES' TO BE GIVEN 
THE OPTION TO CHANGE THE ORIGINAL INPUT PERCENTAGES AND RETRY* OR 
4) 'NO' TO TERMINATE7PERCENT 



PERCENT OF SALES 

YEARS 71 72 73 74 75 

SALES 100 100 100 100 100 

-CG SOLD 50 48.18 46.43 44.74 43.11 

- ADV 15 14.32 13.67 13.05 12.45 

- ADM*GEN 10 9.82 9.64 9.46 9.29 
=OPER INC 25 27.68 30.26 32.75 35.14 

- TAXES 8.95 12.7 13.99 15.23 16.42 
=NET INCOME 16.05 14.99 16.27 17.52 18.72 



PLEASE ENTER ONE OF THE FOLLOWING FOUR VALUES: 1) 'GROW TO HAVE 
THE GROWTH PERCENTAGES LISTED* 2) 'PERCENT' TO HAVE THE PERCENTAGE 
RELATIONSHIPS OF THE ITEMS TO SALES LISTED* 3) 'YES' TO BE GIVEN 
THE OPTION TO CHANGE THE ORIGINAL INPUT PERCENTAGES AND RETRY* OR 
4) 'NO' TO TERMINATE7YES 

PLEASE ENTER THE FOLLOWING FOUR PARAMETERS A LINE AT A TIME. 

1)THE FACTOR YOU WISH TO ALTER: 'SAL* FOR SALES, 'ADV FOR ADVERTIS- 
ING* 'CGS', OR 'ADM'. 

2)ON THE NEXT LINE, THE YEAR YOU WANT THE NEW PERCENTAGE 

TO OCCUR: 72,73,74,75. ***NOTE: THE INITIAL PERCENTAGE 
WILL APPLY TO ALL OTHER YEARS UNLESS SPECIFICALLY CHANGED 

3)THE NEW PERCENTAGE. 

4)0N THE FOURTH LINE, 'YES' OR 'NO', INDICATING WHETHER YOU 
WISH TO CHANGE ANY OTHER FACTOR NOW. 
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?CGS 
?74 
?8 
?N0 

********************************************************************** 



INCOME STATEMENT 
$ IN THOUSANDS 



YEARS 71 72 73 74 75 

SALES 1000 1100 1210 1331 1464.1 

-CG SOLO 500 530 561.8 606.74 643.15 

- ADV 150 157.5 165.38 173.64 182.33 

- ADMAGEN 100 108 116.64 125.97 136.05 
=OPER INC 250 304.5 366.19 424.64 502.58 
♦TAX L.CF. 50 

- TAXES 89.5 139.66 169.27 197.33 234.74 
=NET INCOME 160.5 164.84 196.92 227.31 267.84 



PLEASE ENTER ONE OF THE FOLLOWING FOUR VALUES: 1) 'GROW* TO HAVE 
THE GROWTH PERCENTAGES LISTED* 2) 'PERCENT* TO HAVE THE PERCENTAGE 
RELATIONSHIPS OF THE ITEMS TO SALES LISTED; 3) 'YES' TO BE GIVEN 
THE OPTION TO CHANGE THE ORIGINAL INPUT PERCENTAGES AND RETRY* OR 
4) 'NO* TO TERMINATE?NO 



********************************************************************* 
DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LEASE INCOME 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DA»1v 

LEAS IN 
36194 



This program calculates annual lease income from (U) units at sales price 
(S) leased at lease rate (R) for lease period (L). It also sums the total 
income by year over (Y) years of lease operation. 



Inputs are defined by program at RUN time. 



Lease period in years + number of years manufacturing product must be 
< 50. Else redimension arrays in #35. 



Richard T. Barck 
Varian Data Machines 
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RUN 



RUN 
LEAS IN 

ON AN ANNUAL BASIS OF SHIPMENTS OVER 'Y* YEARS* THIS PROGRAM 
WILL CALCULATE LEASE INCOME BASED ON A VARIABLE-LENGTH 

PRODUCT LIFE (LEASE PERIOD). R. T. BARCK 5/17/71 

LEASE PERIOD IN YEARS IS? 5 

WE WILL MANUFACTURE PRODUCTS FOR Y YEARS; Y -76 

ANNUAL SHIPMENTS IN UNITS BY YEAR FOR YEARS 1 TO 6 ARE 

1 ?17 

2 ?22 

3 ?25 

4 75-25 

5 722 

6 7 14 

ENTER AVG SALES PRICE IN S 000 FOR EACH YEAR SYSTEMS ARE 
INSTALLED AND FOR ALL YEARS SYSTEMS REMAIN ON LEASE 

YEAR SALES PRICE 

1 732 

2 ?32 

3 ?29 

4 729 

5 729 

6 727.5 

7 727.5 

8 ?27 

9 ?26.5 

10 726.5 

11 726 

ENTER AVG LEASE RATE IN X OF SALES PRICE PER MONTH (W/O SERVICE) 
FOR EACH YEAR SYSTEMS ARE INSTALLED AND REMAIN ON LEASE 

YEAR LEASE RATE 

1 ?2.6 

2 72.6 

3 72.6 

4 ?2.55 

5 ?2.55 

6 ?2.55 

7 ?2.5 

8 ?2.5 

9 ?2.5 

10 ?2.5 

11 ?2.5 

ANNUAL INCOME FOR THIS PRODUCT WILL BE: 

YEAR INCOME 

1 169.728 

2 389.376 

3 579.072 

4 789.786 

5 985.014 

6 908.82 

7 709.5 

8 494.1 

9 286.2 

10 111.3 

11 

DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM llAblv 



ACKNOWLEDGEMENTS: 



SIMPLE LOAN ANALYSIS 

LENDER calculates the monthly interest charges and outstanding 
balance of a loan that must be paid off in one year or less. 



LENDER 
36090 



Self-explanatory. 

The following input values will be requested 

B = amount of loan 

M = monthly payment 

R = interest rate 



Loan must be payable within one year. 
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RUN 

GET-$LENDER 

RUN 

LENDER 

* SIMPLE LOAN ANALYSIS * 

THIS PROGRAM CALCULATES THE MONTHLY INTEREST CHARGES AND OUTSTANDING 
BALANCE OF A LOAN THAT MUST BE PAID OFF IN ONE YEAR OR LESS. 



WHAT IS THE AMOUNT OF THE LOAN? 1000 

WHAT IS THE MONTHLY PAYMENT? 90 

WHAT IS THE INTEREST RATE?7.5 

********************************************************************** 

PAYMT 
MTH. INT. 



1 6.25 

2 5.73 

3 5.2 
A 4. 67 

5 A. 1 A 

6 3.6 

7 3.06 

8 2.52 

9 1.97 

10 1.42 
1 1 .87 
12 .31 



APPLIED TO 


BALANCE 


LOAN 


DUE 


83.75 


916.25 


84.27 


831 .98 


84.8 


747. 18 


85.33 


661 .85 


85.86 


575.99 


86.4 


48 9. 59 


86.94 


402. 65 


87. 48 


315. 17 


88.03 


227. 14 


88. 58 


138. 56 


89. 13 


49. 43 


49. 43 


0.00 



MONTHS TO PAYOFF LOAN: 12 
TOTAL INTEREST CHARGES: 39.74 



DO YOU HAVE ANOTHER CASE7YES 

WHAT IS THE AMOUNT OF THE LOAN? 12000 

WHAT IS THE MONTHLY PAYMENT? 1 000 

WHAT IS THE INTEREST RATE?8«5 



LOAN CANNOT BE PAID OFF IN LESS THAN 1 YEAR. 
INCREASE YOUR MONTHLY PAYMENT. 

DO YOU HAVE ANOTHER CASE7NO 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R G R A M JtS A.l9 l\j 



ACKNOWLEDGEMENTS: 



LEASE ANALYSIS AS DETERMINED BY THE LESSEE 



LESSEE 
36091 



LESSEE compares the advantages of leasing vs. purchasing equipment. 
Investment tax credit is considered and a sensitivity check is available, 
as is a cashflow diagram. 



Values are required for the following variables, beginning in line 9900: 

The purchase price of the equipment 

The lessee's income tax rate 

The interest rate on a loan, compounded semi-annually 

The opportunity rate that can be earned, after taxes, on 

new investments, compounded semi-annually 

The monthly rent, payable in advance 

The depreciable life in years 

The salvage value for tax purposes 

Expected actual salvage value, must be less than P 

Expenses of making the lease arrangement 

Annual saving in expenses due to the lease 

The length of the lease in years 

The length of the basic rental period 

if no investment tax credit is taken, otherwise 1 

The number of the variable for which a sensitivity analysis 

is to be done; if no analysis; 1 if on purchase price; 

2 if on income tax rate, etc. 

The lowest value for the variable specified in 14 

The highest value of the variable specified in 14 

Do not remove the string data in lines 9990-9994. 



1. 


P 


2. 


T 


3. 


Rl 


4. 


R2 


5. 


M 


6. 


L 


7. 


SI 


8. 


S2 


9. 


El 


10. 


E2 


11. 


Y 


12. 


J 


13. 


Z 


14. 


X 


15. 


XI 


16. 


X2 



This program uses the Bower-Williamson Method of Lease Analysis, 



LESSEE, page 2 



RUN 

GET-SLESSEE 

9900 DATA 20000, .5* .055* • 15,500* 10* 1000,2000*500/ 4000, 10, 10, 1 

9901 DATA 3* . 12, .045 

RUN 
LESSEE 

* LEASE/PURCHASE ANALYSIS * 

HAS YOUR DATA ALREADY BEEN ENTERED7YES 

DO YOU WANT THE SENSITIVITY ANALYSIS ONLY7NO 
*********************************************************************** 

♦COMPARISON OF LEASE WITH PURCHASE* 

PURCHASE PRICE $ 20000 

TAX RATE .5 

INTEREST RATE .055 

OPPORTUNITY RATE . 15 

MONTHLY RENT £ 500 

DEPRECIABLE LIFE 10 YEARS 

SALVAGE FOR TAX £ 1000 

EXPECTED SALVAGE £ 2000 

EXPENSE OF ARRANGING LEASE £ 500 

ANNUAL EXPENSE SAVING DUE TO LEASE £ 4000 

LEASE LENGTH 10 YEARS 

BASIC RENTAL PERIOD 10 YEARS 

SENSITIVITY ANALYSIS ON INTEREST RATE WITH A RANGE OF .12 TO 

.045 
INVESTMENT TAX CREDIT TO BE TAKEN £ 1400. 



DO YOU WANT TO SEE THE FLOWS7YES 













BASIC 












OP'G FLO 


CASH FLO 


BASIC 










DIFF'CE 


SAVING 


CASH FLOW 


YEAR 


PAYMENT 


DEPR 


LOAN 


WITH 


WITH 


DISC. AT 


1 


6000 


3455 


1038 


3500 


1 104 


102 7 


2 


6000 


3109 


951 


4000 


2970 


2391 


3 


6000 


2764 


860 


4000 


3188 


2221 


4 


6000 


2418 


764 


4000 


3409 


2055 


5 


6000 


2073 


663 


4000 


3632 


1895 


6 


6000 


1727 


555 


4000 


3859 


1742 


7 


6000 


1382 


442 


4000 


4088 


1597 


8 


6000 


1036 


323 


4000 


4321 


1460 


9 


6000 


69 1 


196 


4000 


4556 


1333 


10 


6000 


345 


63 


2000 


3296 


834 


TOTAL 


60000. 


19000 


5855 


37500. 


• 34423. 


1 6555 



FINANCIAL ADVANTAGE OF LEASE: £-26411.8 

OPERATING ADVANTAGE OF LEASE: £ 16552.4 

NET ADVANTAGE OF LEASE: £-9859.38 





SENSITIVITY 


ANALYSIS ON INTEREST RATE 


INTEREST 


RATE 


NET ADVANTAGE OF 


. 12 




-1475.72 


. 1 125 




-2219.66 


. 105 




-3014.65 


.0975 




-3863.75 


.09 




-4769.57 


.0825 




-5736.89 


.075 




-67 67.32 


.0675 




-7866.06 


.06 




-9036. 63 


.0525 




- 10284.3 


.045 




-11611.7 



LEASE 



********************************************************************** 
DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LOAN AMORTIZATION 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

-CONTRIBUTED PROGRAM JBAulv 

LOAN 
36226 



This program amortizes a loan on a monthly basis and prints out a monthly 
and yearly report. The yearly report shows interest accumulated, payments 
to the principal, total paid and remaining balance. When the balance falls 
below the maximum allowable monthly payment (set by the user), the final 
payment is computed. 



Follow the instructions given by the program. After each monthly payment 
is entered, the program prints out the amount of the monthly payment 
attributed to interest, the cumulative interest, amount attributed to the 
principal, cumulative principal payments, and principal balance due on the 
loan. Computations continue until the end of the year when a yearly report 
is printed out. 



None 



Henry H. Brus III 
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RUN 

RUN 
LOAN 

INPUT STARTING MONTH # <FEB=2>?6 

MAXIMUM ALLOWABLE PAYMENT/MONTH? 300 

AFTER THE FIRST 7 INPUT PRINCIPAL AND INTEREST RATE 

AFTER EACH SUCCEEDING ? INPUT THE MONTHLY PAYMENT 



INTEREST 


CUM INTEREST 


PAY TO PR INC 


CUM PR INC PAY 


BALANCE 


?5505 










??.045 










?150 










20.6437 


20.6437 


129.356 


129.356 


5375.64 


?250 










20.1587 


40.8024 


229.841 


359.198 


5145.8 


?25 










19.2968 


60.0992 


5.70324 


364.901 


5140.1 


?0 










19.2754 


79.3745 





364.901 


5159.37 


?19 










19.3477 


98.7222 





364.901 


5159.72 


?300 










19.349 


118.071 


280.651 


645.552 


4879.07 


74000 










?-23 










?300 










18.2965 


136.368 


281 .703 


927.255 


4597.37 


YEAR 


TOT PAY MADE 


YEAR CUM INT 


YEAR PR INC PAY 


BALANCE 


1 


1044 


136.368 


927.255 


4597.37 


?100 










17.2401 


153.608 


82.7599 


1010.02 


4514.61 


743 










16.9298 


170.538 


26.0702 


1036.09 


4488.54 


799.5 










16.832 


187.37 


82.668 


11 18.75 


4405.87 


742 










16.522 


203.892 


25.478 


1144.23 


4380.39 


7 76 










16.4265 


220.318 


59.5735 


1203.81 


4320.82 


?54 










16.2031 


236.521 


37.7969 


1241 .6 


4283.02 


718 










16.0613 


252.583 


1 .93867 


1243.54 


4281 .08 


?21 










16.0541 


268.637 


4.94594 


1248.49 


4276.14 


?0 










16.0355 


284.672 





1248.49 


4292.17 


?300 










16.0956 


300.768 


283.904 


1532.39 


4008.27 


7299.9 










15.031 


315.799 


284.869 


1817.26 


3723.4 


7176 










13.9627 


329.762 


162.037 


1979.3 


3561 .36 


YEAR 


TOT PAY MADE 


YEAR CUM INT 


YEAR PR INC PAY 


BALANCE 


2 


1229.4 


193.394 


1052.04 


3561 .36 
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?130 










13.3551 


343.117 


116.645 


2095.94 


3444.72 


?29 










12.9177 


356.034 


16.0823 


21 12.02 


3428.63 


?250 










12.8574 


368.892 


237.143 


2349.17 


3191 .49 


7222 










11 .9681 


380.86 


210.032 


2559.2 


2981 .46 


710 










11 .1805 


392.04 





2559.2 


2982.64 


?52 










1 1 .1849 


403.225 


40.8151 


2600.01 


2941 .83 


?67 










1 1 .0318 


414.257 


55.9682 


2655.98 


2885.86 


?98 










10.822 


425.079 


87.178 


2743.16 


2798.68 


?300 










10.495 


435.574 


289.505 


3032.67 


2509.17 


?300 










9.4094 


444.983 


290.591 


3323.26 


2218.58 


?250 










8.31969 


453.303 


241 .68 


3564.94 


1976.9 


?275 










7.41339 


460.716 


267.587 


3832.52 


1709.32 


YEAR 


TOT PAY MADE 


YEAR CUM INT 


YEAR PR INC PAY BALANCE 


3 


1983 


130.955 


1853.23 


1709.32 


?215 










6.40994 


467.126 


208.59 


4041.11 


1500.73 


7193.6 










5.62772 


472.754 


187.972 


4229.08 


1312.75 


?300 










4.92283 


477.677 


295.077 


4524.16 


1017.68 


?34 










3.81629 


481 .493 


30.1837 


4554.35 


987.494 


7200 










3.7031 


485.196 


196.297 


4750.64 


791 .197 


7201 .16 










2.96699 


488.163 


198.193 


4948.84 


593.004 


796 










2.22376 


490.387 


93.7762 


5042.61 


499.227 


7100 










1 .8721, 


492.259 


98.1279 


5140.74 


401.1 


7 171.22 










1 .50412 


493.763 


169.716 


5310.46 


231 .384 


.867689 


494.631 


231.384 


5541 .84 





YEAR 


TOT PAY MADE 


YEAR CUM INT 


YEAR PR INC PAY BALANCE 


4 


1743.23 


33.9146 


1709.32 





41 F>AYMENTS 


WERE MADE 








DONE 











BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM IjAl^lv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SECURITIES PORTFOLIO USING MARKOWITZ MODEL 



MARKOW computes the efficient securities portfolios according to 
the full covariance matrix Markowitz model. 



MARKOW 
36092 



Input data should be entered beginning in line 9900, in the 
following order: 

1. the number of securities 

2. the lending rate (decimal notation) 

3. the borrowing rate (decimal notation) 

4. the expected returns for each security 

5. the full covariance matrix 

(this should be listed row by row. Note that it is a 
square matrix nxn, where n = # of securities). 



If a storage problem should result, delete lines 9000-9030 and run. 
MARKOW is restricted to 15 securities. To increase this number, 
change the DIM-statement 9050, and the equivalent values in lines 
9051-9054: 

G9 >2N + 2 
E9 >N + 2 
A9, R9, H9 >N 



Francois Carlhian 
Babson College 
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RUN 

GET-SMARKOW 
LIS-9900 

MARKOW 

990(3 DATA 9 

9901 DATA .045*. 065 

9910 DATA 2.84022F-02».110011»4.77284F-03»6.33756E-02*6.14846E-02.3.05807F-02 

9920 DATA -7. 1 2097E-03,-5. 32422E-03, .260657 

9930 RFM FXAMPLE COVARIANCE MATRIX FOLLOWS: 

9950 DATA 2 .88445F-02 .9.04635E-03, 1 . 31019E-02 * 1 . 70099E-02 

9951 DATA 1 .57015E-02 . 1 .85585E-02* 2. 78296F-02* 3. 10865F-02 
9Q52 DATA 1.14316F-02«9.04635E-03»6.75625F-03»4.64437F-04 

9953 DATA 1 . 37025F-02 » 8.90057E-03.5. 1941E-03»4.64437E-04 

9954 DATA 9. 64282F-03»4. 30 107F-04, 2.0541 3F-03 ♦ .010148 

9955 DATA 1 .55908E-02 »9. 31 1 76E-03»4.0376lF-03» 1 .70099E-02 

9956 DATA 1 . 37025F-02 »4 . 30107E-04 ♦ 2.86772F-02* 1 .55314F-02 

9957 DATA 1 . 14319E-02* 1 . 28415E-02 »2. 95581F-02 .-4.5765E-03 

9958 DATA 1 .57015E-02 »8 .90057E-03 ,2.0541 3F-03 ♦ 1 .55314F-02 

9959 DATA 1 .88851E-02 ♦4.27909E-03»9.07786F-03,2.2002lE-02 

9960 DATA 1 .85585F-02 » .099266 »5. 1941E-03* .010148 

9961 DATA 1 . 14319F-02 »4. 27909E-03» 1 .63099E-02» .021356 

9962 DATA 1 .93458E-02 » -5.6284E-03 ♦2.78296F-02*6.43849E-03 

9963 DATA 1 .55908E-02 ♦ 1 ,28415E-02»9.07786E-03* .021356 

9964 DATA 3.04166F-02.2. 707 16E-02 .2. 831 3E-03,3. 10865E-02 

9965 DATA 1 .497 14E-02 ,9 .31 1 76E-03 .2.95581E-02 »2.2002lE-02 

9966 DATA .093458 *2. 70716F-02 ♦4.<*4682F-02 ♦ 8 .28133E-03 

9967 DATA 1 . 14316F-02 .9 .781 1 7E-04 ♦4.03761F-03»-4.5765E-03 

9968 DATA 1 .99266E-02 » -5 .68284F-03»2.831 3F-03»8 .281 33F-03 

9969 DATA 6.43849F-03 ♦ 1 .497 14E-02 *9. 781 1 7F-04* 1 . 31019E-02 
9Q70 DATA 4.86656F-02 

9999 FMD 

RUN 
MARKOW 

* SECURITIES PORTFOLIOS USING MARKOW CHAINS * 

AS INPUT WE HAVE: 9 SECURITIES 

4.5 PERCENT AS THE LENDING RATE 
6.5 PERCENT AS THE BORROWING RATE 

PORTFOLIO NUMBER 1 

EXP RETURN: .260657 STD DEV: .217214 ASS INT: .113302 
SLOPE OF THE E-V CURVE IS: .640382 

STOCK NO PERCENT R H 

9 100 1 



PORTFOLIO NUMBER 2 

EXP RETURN: .13959 STD DEV: 7.41758E-02 ASS INT: 1.71583 
SLOPE OF THE E-V CURVE IS :-6 . 98 1 2 1E-03 

STOCK NO PERCENT R H 

2 80.3653 .794987 -1.24143 

9 19.6347 .205013 1.24143 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM JjAblv 



COMPARE AND EVALUATE UP TO 1000 MORTGAGE PAYMENT 
PLANS SIMULTANEOUSLY 



MC0ST 
36709 



Permits the user to easily compare and evaluate up to 1000 mortgage payment 
plans simultaneously. 

The program computes monthly mortgage payments for various principal amounts, 
at different interest rates, over varying periods. Sample input: 

Enter the amounts? 22000,24000 
Enter the rates (percent)? 7.5 
Enter the years? 20,25 

From the above input, 4 mortgage payment plans will be calculated and 
printed with supplementary comparison information. 



RUN 9100 for instructions. 



Babson College 

Babson Park, Massachusetts 
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RUN 

•SMCOST* PERMITS THE USER TO EASILY COMPARE AND EVALUATE 
UP TO 1000 MORTGAGE PAYMENT PLANS SIMULTANEOUSLY. 

THE PROGRAM COMPUTES MONTHLY MORTGAGE PAYMENTS FOR 
VARIOUS PRINCIPAL AMOUNTS. AT DIFFERENT INTEREST RATESS 
OVER VARYING PERIODS. 

ENTER THE AMOUNTS? 22000.24000 

ENTER THE RATES (PERCENT)? 7.5 

ENTER THE YEARS? 20.25 
FROM THE ABOVE INPUT. 4 MORTGAGE PAYMENT PLANS WILL BE 
CALCULATED AND PRINTED WITH SUPPLEMENTARY COMPARISON 
INFORMATION. 



ENTER THE AMOUNTS722000. 24000 
ENTER THE RATES(PERCENT) ?7 . 5 
ENTER THE YEARS720.25 





NUMBER 






DECREASE 


INCREASE 


INTEREST 


OF 


MONTHLY 


TOTAL 


MONTHLY 


TOTAL 


RATE 


YEARS 


PAYMENT 


INTEREST 


PAYMENT 


INTEREST 


AMOUNT = 


22000 










7.5 


20 


177.23 


20535.6 






7.5 


25 


162.58 


26773.7 


14.65 


6238.07 


AMOUNT = 


24000 










7.5 


20 


193.34 


22402.5 






7.5 


25 


177.36 


29207.7 


15.98 


6805.16 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DAuIv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MAKE-BUY DECISION ANALYSIS 



MKBUY 
36093 



MKBUY calculates the present value of the cost saving incurred by making 
a product as opposed to buying it. It also prints a cash flow summary 
for each method for each year involved. 



The following values are required as input: 

1. the cost to buy one item FOB 

2. the cost to manufacture one item including direct materials 
and labor but not overhead 

3. the initial investment 

4. the life of the investment 

5. the salvage value of the investment 

6. the annual fixed costs of the investment (supervision 
and maintenance) 

7. corporate tax rate in percent 

8. local tax rate on extra investment 

9. cost of capital 

10. estimate of yearly demand for the item under consideration. 



Life of the investment must be less than 25 years 
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RUN 

GET-SMKBUY 

RUN 

MKBUY 

* MAKE-BUY ANALYSIS * 

THIS PROGRAM CALCULATES THE PRESENT VALUE OF THE COST 
SAVING INCURRED BY MAKING A PRODUCT AS OPPOSED TO BUYING IT. 

FIRST WE WOULD LIKE TO ASK YOU A FEW QUESTIONS... 



WHAT IS THE NAME OF YOUR COMPANY?HEWLETT-PACKARD CO. 

WHAT IS THE NAME OF THE COMPONENT YOU ARE CONSIDERING 
MAKING OR BUYING?. 2 PENCIL 

*** ENTER ALL COSTS IN DOLLARS *** 

1. WHAT IS THE COST TO BUY A .2 PENCIL FOB YOUR 
PLANT?. 05 

2. WHAT IS THE COST TO MANUFACTURE A .2 PENCIL IN YOUR PLANT 
INCLUDING DIRECT MATERIALS AND LABOR BUT NOT OVERHEAD?. 04 

3. WHAT IS THE INITIAL INVESTMENT (COST OF THE EXTRA MACHINERY 
THAT WOULD BE NEEDED TO MANUFACTURE .2 PENC ILS >?L- 1 0000 

4. WHAT IS THE LIFE OF THE INVESTMENT IN YEARS?5 

5. WHAT IS THE SALVAGE VALUE OF THIS INVESTMENT?0 

(NOTE: SUM-OF-THE-YEARS-DIGITS METHOD WILL BE USED TO DEPRECIATE 
THE INVESTMENT. 

6. WHAT ARE THE ANNUAL FIXED COSTS (SUCH AS SUPERVISION AND 
MAINTENANCEHNVOLVED IN YOUR MAKING .2 PENCILS?2500 

7. WHAT IS YOUR CORPORATE TAX RATE IN PERCENT??25 

8. WHAT IS THE LOCAL TAX RATE ON THE EXTRA INVESTMENT IN DOLLARS 
PER TH0USAND?55 

9. WHAT IS YOUR COST OF CAPITAL IN PERCENT??12 

10. WHAT IS YOUR ESTIMATE OF THE YEARLY DEMAND FOR .2 PENCILS 
?10000 

**j^t ******************************* *********************** 

THE PRESENT VALUE OF THE COST TO MAKE IS 15208.2 
THE PRESENT VALUE OF THE COST TO BUY IS 1206.96 

HEWLETT-PACKARD CO. SHOULD BUY .2 PENCILS AT A SAVINGS OF 14001.2 
DOLLARS. 



**** THE FLOWS **** 

IF BUY********** 



YEAR 


EXPENSE 


CAS 


1 








2 


500 


375 


3 


500 


375 


4 


500 


375 


5 


500 


375 


6 


500 


375 



IF MAKE********* 


***NET*** 


EXPENSE 


CASH FLOW 


CASH FLOW 





9533.33 


-9533.33 


6600 


1616.67 


-1241.67 


5786.67 


1673.33 


-1298.33 


5010 


1757.5 


-1382.5 


4270 


1869.17 


-1494. 17 


3566.67 


2008.33 


-1633.33 
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WOULD YOU LIKE TO SEE THE EFFECT OF CHANGING A VARIABLE? 

(YES OR NO)?YES 

WHAT IS THE NUMBER OF THE QUESTION TO WHICH YOU WOULD LIKE 

TO CHANGE YOUR ANSWER? 10 

WHAT IS THE NEW VALUE?50000 

********************************************************** 

THE PRESENT VALUE OF THE COST TO MAKE IS 19070.5 
THE PRESENT VALUE OF THE COST TO BUY IS 6034.78 

HEWLETT-PACKARD CO. SHOULD BUY .2 PENCILS AT A SAVINGS OF 13035.7 
DOLLARS. 



MORE CHANGES?YES 

SAME QUEST ION?NO 

WHAT IS THE NUMBER OF THE QUESTION TO WHICH YOU WOULD LIKE 

TO CHANGE YOUR ANSWER73 

WHAT IS THE NEW VALUE 71000 

********************************************************** 

THE PRESENT VALUE OF THE COST TO MAKE IS 20263.4 
THE PRESENT VALUE OF THE COST TO BUY IS 6034.78 

HEWLETT-PACKARD CO. SHOULD BUY .2 PENCILS AT A SAVINGS OF 14228.6 
DOLLARS. 



MORE CHANGES?NO 
************************************************************* 

DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



MORTGAGE ANALYSIS 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M ijAldllj 

MORGAG 
36094 



MORGAG will find the missing parameter of the following four, given the 
remaining three: the rate charged on a mortgage, the life, the amount 
borrowed, and the monthly payment. It will also print a summary, either 
monthly or yearly, indicating the amount of interest, amount of payment, 
and outstanding balance for each period. 



Provide input from the teletype as requested. 



Frank Cada 
Hewlett-Packard/Loveland Division 
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RUN 

RUN 

* MORTGAGE ANALYSIS * 

IF YOU WANT TO FIND: 

THE RATE* TYPE *1 • 

THE LIFE* TYPE m 2* 

THE AMOUNT BORROWED* TYPE *3" 

THE MONTHLY PAYMENT* TYPE *4* 
WHICH DO YOU WANT7 1 

MORTGAGE LIFE: YEARS* MONTHS?3*0 

AMOUNT TO BE BORROWED73000 

AMOUNT OF ONE MONTHLY PAYMENT794.01 

SETTLEMENT DATE (MO* YEAR) ? 1 0* 1 97 1 

TABLE LENGTH (YEARS )?4 

ANNUAL OR MONTHLY SUMMMARY( 1OR0 )? 1 

*********************************************************** 

MORTGAGE TERMS 
NOMINAL ANNUAL RATE= 8.00051 % 
LIFE OF MORTGAGE = 3 YEARS* MONTHS 
AMOUNT BORROWED = I 3000 
MONTHLY PAYMENT = $ 94.01 



MORTGAGE TABLE 



YEAR 



INTEREST 



PRINCIPAL 
REPAYMENT 



ENDING 

PRINCIPAL 

OUTSTANDING 



1971 
1972 
197 3 
1974 



39.51 
194.39 
1 16.89 
33.57 



148.51 
933.73 
101 1 .23 
906.531 



2851 .49 
1917.76 
906.531 




***************************************************** 



DONE 
RUN 



* MORTGAGE ANALYSIS * 

IF YOU WANT TO FIND: 

THE RATE* TYPE • 1 * 

THE LIFE* TYPE *2* 

THE AMOUNT BORROWED* TYPE *3' 

THE MONTHLY PAYMENT* TYPE *4* 
WHICH DO YOU WANT 72 

NOMINAL ANNUAL RATE IN PERCENT78 

AMOUNT TO BE BORROWED73000 

AMOUNT OF ONE MONTHLY PAYMENT794.01 

SETTLEMENT DATE (MO* YEAR) 7 1 0* 197 1 
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TABLE LENGTH (YEARS>?4 

ANNUAL OR MONTHLY SUMMMARYC 1OR0>? 1 

*********************************************************** 

MORTGAGE TERMS 
NOMINAL ANNUAL RATE= 8 % 

LIFE OF MORTGAGE = 3 YEARS* 1 MONTHS 
AMOUNT BORROWED = $ 3000 
MONTHLY PAYMENT = S 94.01 

THE MORTGAGE LIFE HAS BEEN ROUNDED UP TO NEAREST MONTH 

MORTGAGE TABLE 



ENDING 
PRINCIPAL PRINCIPAL 
YEAR INTEREST REPAYMENT OUTSTANDING 



1971 39.51 148.51 2851.49 

1972 194.39 933.73 1917.76 

1973 116.88 1011.24 906.521 

1974 33.57 906.521 

4c ********** ************************************ ****** 

DONE 
RUN 



* MORTGAGE ANALYSIS * 

IF YOU WANT TO FIND: 

THE RATE* TYPE *1* 

THE LIFE* TYPE '2* 

THE AMOUNT BORROWED* TYPE *3' 

THE MONTHLY PAYMENT* TYPE *4' 
WHICH DO YOU WANT73 

NOMINAL ANNUAL RATE IN PERCENT78 .0005 1 

MORTGAGE LIFE: YEARS* MONTHS? 3*0 

AMOUNT OF ONE MONTHLY PAYMENT794.01 

SETTLEMENT DATE CMO*YEAR>? 1 0* 197 1 

TABLE LENGTH (YEARS)?4 

ANNUAL OR MONTHLY SUMMMARYC 1OR0>? 1 

*********************************************************** 

MORTGAGE TERMS 
NOMINAL ANNUAL RATE= 8.00051 % 
LIFE OF MORTGAGE = 3 YEARS* MONTHS 
AMOUNT BORROWED = S 3000 
MONTHLY PAYMENT = $ 94.01 
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MORTGAGE TABLE 

ENDING 
PRINCIPAL PRINCIPAL 
YEAR INTEREST REPAYMENT OUTSTANDING 

1971 39.51 148.51 2851.49 

1972 194.39 933.73 1917.76 

1973 116.89 1011.23 906.531 

1974 33.57 906.531 
***************************************************** 

DONE 



RUN 



* MORTGAGE ANALYSIS * 

IF YOU WANT TO FIND: 

THE RATE* TYPE M* 

THE LIFE* TYPE % 2 % 

THE AMOUNT BORROWED* TYPE *3* 

THE MONTHLY PAYMENT* TYPE *4* 
WHICH DO YOU WANT74 

NOMINAL ANNUAL RATE IN PERCENT78 .0005 1 

MORTGAGE LIFE: YEARS* MONTHS?3*0 

AMOUNT TO BE BORROWED73000 

SETTLEMENT DATE <MO*YEAR> ? 1 0.-* 197 1 

TABLE LENGTH CYEARS)?4 

ANNUAL OR MONTHLY SUMMMARYC 1OR0)?0 

*********************************************************** 

MORTGAGE TERMS 
NOMINAL ANNUAL RATE= 8.00051 % 
LIFE OF MORTGAGE = 3 YEARS* MONTHS 
AMOUNT BORROWED = $ 3000 
MONTHLY PAYMENT = $ 94.0097 



MORTGAGE TABLE 



BEGINNING 

PRINCIPAL PRINCIPAL 

MONTH OUTSTANDING INTEREST REPAYMENT 



FOR THE CALENDAR YEAR 1971 

11 3000 20 74.0097 

12 2925.99 19.51 74.4998 

PRINCIPLE REPAID DURING 1971 148.51 

INTEREST PAID DURING 197 1 39.51 

PRINCIPLE OUTSTANDING AT YEAR END = 2851.49 
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FOR THE CALENDAR YEAR 1972 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



99 
99 
48 



2851.49 

2776.49 

2700. 

2624. 

2548. 

2471.46 

2393.93 

2315. 

2237. 

2158. 

2078. 

1998. 



.88 
■ 31 
.22 
>6 
.45 



19. 
18. 
18- 
17. 
16. 
16. 
15. 
15. 
14. 
14. 
13. 
13- 



01 

51 

01 

5 

99 

48 

96 

44 

92 

39 

86 

32 



74.9998 
75.4998 
75.9998 
76.5097 
77.0197 
77.5298 
78.0498 
78.5697 
79.0898 
79.6198 
80. 1497 
80.6898 



PRINCIPLE REPAID DURING 1972 
INTEREST PAID DURING 1972 
PRINCIPLE OUTSTANDING AT YEAR END = 



933.727 

194.39 
1917.76 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



FOR THE CALENDAR YEAR 1973 



1917.76 


12.79 


81.2198 


1836.54 


12.24 


81.7697 


1754.78 


11.7 


82.3098 


1672.47 


11.15 


82.8598 


1589.61 


10.6 


83.4097 


1506.2 


10.04 


83.9698 


1422.23 


9.48 


84.5298 


1337.7 


8.92 


85.0898 


1252.61 


8.35 


85.6597 


1 166.95 


7.78 


86.2298 


1080.72 


7.21 


86.7997 


993.917 


6.63 


87.3797 


PAID DURING 


1973 1011 


.23 



INTEREST PAID DURING 1973 116.89 

PRINCIPLE OUTSTANDING AT YEAR END = 906.538 



FOR THE CALENDAR YEAR 1974 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 



906.538 




6.04 


87.9698 


818.568 




5.46 


88.5497 


730.018 




4.87 


89.1398 


640.878 




4.27 


89.7397 


551.139 




3.67 


90.3398 


460.799 




3.07 


90.9397 


369.859 




2.47 


91.5397 


278.319 




1.86 


92.1497 


186.17 




1.24 


92.7697 


93.4 




.62 


93.3898 


1 .02081E- 


■02 





1.02081E-02 


PAID DURING 


1974 906. 


.538 



33.57 



INTEREST PAID DURING 1974 
PRINCIPLE OUTSTANDING AT YEAR END = 
***************************************************** 



DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 
CONTRIBUTED PROGRAM JjAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



DATA CENTER INVENTORY REPORT GENERATOR 



REP 
36177 



This package includes two programs REPort and INput which together allow 
the user to generate sorted listings of information in a data file. The 
sample RUN enclosed uses a data file of computer equipment on consignment 
to the Atlanta Data Center. The data file is created and maintained by 
INput. Each item in the file occupies one record on a fixed head disc. 
The maximum number of items is currently 180 but the program could be 
modified to the limits dictated by the system hardware (552 on 2000A, 
unlimited on 2QQQB or 2000C). Sorted listings are available for model 
numbers, status, location, date received, and sales discipline. The program 
uses string sorting (pair exchange). 



DATA CENTER INVENTORY REPORT GENERATOR (REP) 
DATA CENTER INVENTORY MASTER DATA INPUT (IN) 
DATA FILE (DUMPED BY "FILDUM") 

1. Four files are involved in this Dackaqe CI, C2, CS0RT1 , and CS0RT2. 

2. If data is not on system RUN FILREA, answer "1" to how many files 
and input data tape. 

3. If data is on system GET and RUN "REP" or "IN" (see sample attached). 



Data file consists of the following information in order; 

VARIABLE FIELD 

NAME TYPE LENGTH FUNCTION 






NUMERIC 


10 


M$ 


STRING 


9 


S$ 


STRING 


10 


U$ 


STRING 


10 


L$ 


STRING 


4 


P$ 


STRING 


5 


R$ 


STRING 


8 


H$ 


STRING 


8 


B$ 


STRING 


3 


D$ 


STRING 


8 


C$ 


STRING 


30 



ITEM # (ASSIGNED BY IN] 

MODEL # 

SERIAL # 

STATUS 

LOCATION CODE 

LIST PRICE 

DATE RECEIVED 

DATE SHIPPED 

MANUFACTURING DIV CODE 

SALES DISCIPLINE 

COMMENTS 



Phil R. Carter 
Hewlett-Packard/Southern Sales Region 
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RUN 



GET -REP 
RUN 

REP 



-- -DATA CENTER INVENTORY 7 

REPORT GENERATOR PROGRAM 

PLEASE SELECT A REPORT OPTION 

TO LIST FOR 1 MODEL # TYPE <1) 

TO LIST FOR 1 STATUS TYPEC2) 

TO LIST FOR 1 OFFICE TYPE C3> 

TO LIST BY DATE RECEIVED TYPE (<l) 

TO LIST FOR 1 SALES DISCIPLINE TYPE (5)- 

?1 

MODEL # (1 TO 10 CHARACTERS) 72100A 

STANDARD LIST IS BY SERIAL #. TO CHANGE THIS TYPE (NO) 

OTHERWISE (YES)? YES 

FOR SHORT FORM PRINTOUT TYPE (1) OTHERWISE (0)--?0 



ITEM # MODEL # 



SERIAL # 



STATUS LOC PRICE RCDT 
SOLD ATL 10750 02/10/71 



SHDT MFDV 
NA 22 
NA 22 
NA 22 
NA 22 



16 2100A 2 
♦♦SALES DISCIPLINE DP NEW 

17 2100A 3 FOR SALE DAL 10750 03/10/71 
♦♦SALES DISCIPLINE SYS NEW 

18 2100A 4 RENTED NOLA 10750 04/10/71 
♦♦SALES DISCIPLINE DP U S STEEL 

15 2100A 9 FOR SALE ATL 10750 11/10/71 

♦♦SALES DISCIPLINE DP NEW 



43000 



DO YOU WANT ANOTHER MODEL # (YES OR NO)?YES 
MODEL # (1 TO 10 CHARACTERS) 72100A 

STANDARD LIST IS BY SERIAL #. TO CHANGE THIS TYPE (NO) 

OTHERWISE (YES)?YES 

FOR SHORT FORM PRINTOUT TYPE (1) OTHERWISE (0) — ?1 



ITEM # MODEL # 



SERIAL # 



STATUS 



LOC PRICE 



RCDT 



SHDT 



MFDV 



16 
17 
18 
15 



2100A 
2100A 
2100A 
2100A 



2 SOLD ATL 10750 02/10/71 

3 FOR SALE DAL 10750 03/10/71 

4 RENTED NOLA 10750 04/10/71 
9 FOR SALE ATL 10750 11/10/71 



NA 22 

NA 22 

NA 22 

NA 22 



43000 



DO YOU WANT ANOTHER MODEL # (YES OR NO)?NO 

DO YOU WANT ANOTHER REPORT (YES OR NO) ?YES 

REPORT # (1 TO 5) ?2 
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STATUS DESIRED (USE ONE OF LIST) 

FACT. LOAN 

IN REPAIR 

RENTED 

SOLD 

OBS 

1 WK DEMO 

2 WK DEMO 

3 WK DEMO 
FOR SALE 
?SOLD 

STANDARD LIST IS FOR 1 MODEL* 
FOR ALL MODEL #'S TYPE 'ALL*-- 
FOR 1 MODEL # TYPE (1 TO 10 CHARACTERS )— 

?AL«-L 

FOR SHORT FORM PRINTOUT TYPE <1> OTHERWISE <0)--?l 



ITEM # MODEL # 



SERIAL # 



STATUS 



LOC PRICE 



RCDT 



SHDT 



MFDV 



12 
16 



12597A-002 
2100A 



NSN 
2 



SOLD ATL 600 13/07/70 
SOLD ATL 10750 02/10/71 



NA 
NA 



22 
22 



11350 



DO YOU WANT ANOTHER STATUS (YES OR NO) ?YES«— -NO 

DO YOU WANT ANOTHER REPORT (YES OR NO) ?YES 

REPORT # (1 TO 5) ?3 

OFFICE NAME (USE STANDARD OFFICE CODE) ?DAL 

STANDARD LIST IS FOR 1 MODEL* 
FOR ALL MODEL #'S TYPE 'ALL'-- 
FOR 1 MODEL # TYPE (1 TO 10 "CHARACTERS) -- 

?ALL 

FOR SHORT FORM PRINTOUT TYPE (1) OTHERWISE (0)--?l 



ITEM # MODEL # 



SERIAL # 



STATUS 



LOC PRICE RCDT 



SHDT 



MFDV 



14 
17 



12597A-005 
2100A 



NSN 
3 



FOR SALE DAL 600 21/07/71 
FOR SALE DAL 10750 03/10/71 



NA 
NA 



22 
22 



1 1 350 



DO YOU WANT ANOTHER OFFICE (OFFICE NAME OR NO)--?NO 

DO YOU WANT ANOTHER REPORT (YES OR NO) ?YEP 

REPORT # (1 TO 5) ?4 

STANDARD LIST IS FOR 1 MODEL 
TYPE MODEL # (1 TO 10 CHARACTERS) — 72100A 

FOR SHORT FORM PRINTOUT TYPE (1) OTHERWISE (0)--?l 



ITEM # MODEL # 



SERIAL # 



STATUS 



LOC PRICE RCDT 



SHDT 



MFDV 



16 
17 
18 
15 



21 00A 
2100A 
2100A 
2100A 



2 SOLD ATL 10750 02/10/71 

3 FOR SALE DAL 10750 03/10/71 

4 RENTED NOLA 10750 04/10/71 
9 FOR SALE ATL 10750 11/10/71 



NA 22 

NA 22 

NA 22 

NA 22 



43000 
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DO YOU WANT ANOTHER MODEL (YES OR NO) ?NO 

DO YOU WANT ANOTHER REPORT <YES OR NO) ?YES 

REPORT # (I TO 5) ?5 

ENTER SALES DISCIPLINE < 1 TO 8 CHARACTERS) ?SYS 

STANDARD LIST IS FOR 1 MODEL* 
FOR ALL MODEL #'S TYPE 'ALL*-- 
FOR 1 MODEL # TYPE (1 TO 10 "CHARACTERS )-- 

?ALL 

FOR SHORT FORM PRINTOUT TYPE (1) OTHERWISE <0)--?l 



ITEM # MODEL # 



SERIAL 



L # 


STATUS 


LOC 


PRICE 


RCDT 


NSN 


FOR SALE 


DAL 


600 


21/07/71 


3 


FOR SALE 


DAL 


10750 


03/10/71 


13 


OBS 


ORL 


10500 


03/03/70 


13 


OBS 


ORL 


10500 


03/03/70 



SHDT 



MFDV 



14 12597A-005 

17 2T00A 

19 2 1 1 4B 

20 2114B 



NA 22 

NA 22 

NA 22 

NA 22 



32350 



DO YOU WANT ANOTHER SALES DISCIPLINECYES OR NO)--?NO 
DO YOU WANT ANOTHER REPORT <YES OR NO) ?NO 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM JjA^li/ 



ACKNOWLEDGEMENTS: 



SALES COMMISSION REPORT 



SALES 
36095 



Dependent upon a number of input conditions, SALES will print a monthly 
planning table for a salesman, with his base salary, incentive dollars, 
and prospective billing totals. 



Self-explanatory 

note only: "INITIAL REVENUE" means the initial sales price of a unit 
item that this salesman sells. 

"BILLING" is total amount of sales for the salesman. 



None 



SALES, page 2 
RUN 

GET-SSALES 

RUN 

SALES 

* SALES COMMISSION PLANNING * 

ENTER THE BASE ANNUAL SALARY, COMMISSION X, A MONTHLY 9UOTA75000, .20, 1 

ENTER EXPECTED NUMBER OF NEW ACCOUNTS PER MONTH? 1 

ENTER EXPECTED INITIAL REVENUE £ RATE OF GROWTH? 1 00, . 10 

WHAT IS THE BEGINNING MONTH OF THE ANALYSIS C 1-123 71 

DO YOU WANT AN [ANNUAL! OR [MONTHLY] PRINTOUT7MONY-THLY 

it*************************************** +++++*++*+*+++++++ +++*++**++* 

BASE SALARY = $ 5000 

MONTHLY QUOTA = 10 

BASED ON 1 NEW ACCOUNTS PER MONTH WITH AN INITIAL REVENUE 

OF S 100 AND AN AVERAGE GROWTH OF 10 X PER MONTH, YOU CAN EXPECT: 



MO NO. BASE $ 



1 


416.667 


2 


416.667 


3 


416.667 


4 


416.667 


5 


416.667 


6 


416.667 


7 


416.667 


8 


416.667 


9 


416.667 


10 


416.667 


11 


416.667 


12 


416.667 







MONTHLY 


TOTAL 


INCENTIVE $ 


TOTAL $ 


BILLING 


BILLING 


18 


434.667 


100 


100 


40 


456.667 


210 


310 


64.2 


480.867 


331 


641 


90.82 


507.487 


464.1 


1 105. 1 


120. 102 


536.769 


610.51 


1715.61 


152.312 


568.979 


771.561 


2487.17 


187.743 


604.41 


948.717 


3435.89 


226.718 


643.384 


1143.59 


4579.48 


269.589 


686.256 


1357.95 


5937.42 


316.748 


733.415 


1593.74 


753 1.17 


368.623 


785.29 


1853.12 


9384.28 


425.686 


842.352 


2138.43 


1 1522.7 



YEARLY TOTALS t 

BASE INCENTIVE TOTAL 

PAYROLL ■ 5000 2280.54 7280.54 

MONTHLY REVENUE AT END OF CALENDAR YEAR IS $ 2138.43 

TOTAL BILLINGS $ 11522.7 

TOTAL PAYROLL AS A PERCENT OF SALES: 63.1843 

DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JlSxX&XI/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



COMPOUND INTEREST 



SAVING 
36708 



This program calculates the amount of money that would accumulate after N 
years at an annual interest rate. 



Variable are denoted as follows: 

N = Period of years 

R = Annual interest rate 

T = Times compunded per year 

P = Initial amount 

D = Amount added at the beginning of each year 

Note: That P and D are given in dollars 
That N and T must be integers 
That R is given as a percentage 



Babson College 

Babson Park, Massachusetts 
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RUN 

RUN 
SAVING 



THIS PROGRAM CALCULATES THE AMOUNT OF MONEY THAT 
WOULD ACCUMULATE AFTER N YEARS AT AN ANNUAL INTEREST RATE 
VARIABLES ARE DENOTED AS FOLLOWS 
N = PERIOD OF YEARS 
R = ANNUAL INTEREST RATE 
T = TIMES COMPOUNDED PER-YEAR 
P = INITIAL AMOUNT 

D = AMOUNT ADDED AT THE BEGINNING OF EACH YEAR 
NOTE* THAT P AND D ARE GIVEN IN DOLLARS 
THAT N AND T MUST BE INTEGERS 
THAT R IS GIVEN AS A PERCENTAGE 

WHAT ARE P<$)#D<$),N<INT),T(INT)»R<X) 
71000,150,7,2,8 

AFTER 7 YEARS* 1000 DOLLARS INVESTED AT 8 
PERCENT COMPOUNDED 2 TIMES PER YEAR, WITH THE 
ADDITION OF 150 DOLLARS PER YEAR, YIELDS A TOTAL 
OF 2926.67 DOLLARS. 

WRITE YES<1) TO CONTINUE OR NO <2> 
?2 

DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DxllldXV/ 



ACKNOWLEDGEMENTS: 



STOCK MERGER INCENTIVE PROGRAM 



STKINC 
36096 



STKINC prints a table for stock incentive estimates, including prospective 
prices and gains, for the consolidated earnings of two companies consider- 
ing merging. 



STKINC requires the use of a data file. This file is used only while the 
program is running, and it is sufficient to open the file directly before 
running STKINC, and then to kill it immediately after the program comple- 
tion. The OPEN statement should read: 

rfi taPfN-STKFLE, 25 

Input information required includes internal growth rates and current 
before-tax earnings for both companies, an estimated external growth rate 
after merging, a price/earnings ratio, the number of outstanding shares of 
stock, both common and qualified, after merging, and expected growth rate 
of the number of shares. 

The program is presently initialized for a base year of 1969. 

To update to base year Y, enter: 

9445 PRINT TAB(24); Y;TAB(36); Y+l ; TAB(48); Y+2; TAB(60); 

9446 PRINT Y + 3 

9680 PRINT TAB(24); Y + 4; TAB(36); Y + 5; TAB(48); Y + 6 
9840 PRINT Y + X; 
9910 LET Y9 = Y + 1 
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RUN 

GET-SSTKINC 
(n*%P£N-STKFLE,25 
RUN 

STKINC 
* STOCK INCENTIVE PROGRAM (MERGER) * 

THIS PROGRAM WILL PRINT A TABLE FOR STOCK INCENTIVE ESTIMATES, INCLUD- 
ING PROSPECTIVE PRICES AND GAINS, FOR A COMPANY CONSIDERING MERGING. 

WHAT IS YOUR PRICE/EARNING RATIO? (ANSWER MUST BE > 1)?50 

WHAT IS YOUR INTERNAL GROWTH RATE? 10 

WHAT IS YOUR COMPANY'S PRESENT BEFORE TAX EARNINGS750000 



WHAT IS THE INTERNAL GROWTH RATE OF THE COMPANY WITH WHICH YOU ARE CON- 
SIDERING MERGING712 

WHAT IS THIS COMPANY'S PRESENT BEFORE TAX EARNINGS765000 



WHAT DO YOU EXPECT YOUR EXTERNAL GROWTH RATE TO BE AFTER MERGING? 15 

WHAT DO YOU EXPECT THE TOTAL NUMBER OF OUTSTANDING SHARES TO BE AFTER 
MERGING7100000 

WHAT DO YOU EXPECT THE ANNUAL PERCENTAGE INCREASE IN THE NUMBER OF OUT- 
STANDING SHARES TO BE?5 

1969 1970 1971 1972 

CO. A BT EARNINGS 
(INT. GROWTH X 10 ) 

CO. B BT EARNINGS 
(INT. GROWTH X 12 ) 

CONSOLIDATED EARNINGS 
(NO EXTERNAL GROWTH) 

EXT. GROWTH X 15 

EARNINGS PER SHARE 

PRICE OF STOCK 



CO. A BT EARNINGS 
(INT. GROWTH X 10 ) 

CO. B BT EARNINGS 
(INT. GROWTH X 12 ) 

CONSOLIDATED EARNINGS 
(NO EXTERNAL GROWTH) 

EXT. GROWTH X 15 

EARNINGS PER SHARE 

PRICE OF STOCK 



NOW PLEASE ENTER AN EARNOUT RATE720 

PLEASE ENTER THE NUMBER OF OUTSTANDING 'QUALIFIED* SHARES YOU EXPECT 
TO HAVE FOR EACH YEAR* AND THEIR PRICE: 

1970 ?1000,100 

1971 71200,110 



50000. 


55000. 


60500. 


66550. 


65000. 


72800. 


81536. 


91320.4 


1 15000. 


127800. 


142036. 


157870. 




146970. 


163341 . 


181551 . 




1.4697 


1.55563 


1.64672 




73.485 


77.7816 


82.336 


1973 


1974 


1975 




73205. 


80525.5 


88578. 




102279. 


114552. 


128299. 




175484. 


195078. 


216877. 




201806. 


224339. 


249408. 




1 .74328 


1.84565 


1.95418 




87. 164 


92.2823 


97.7089 
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1972 71400*120 

1973 71500*130 

1974 71500*130 

1975 71500*130 





EARNOUT 


QUALIFIED 


PURCHASE 


PROJECTED 




YEAR 


SHARES 


SHARES 


PRICE 


PRICE STOCK 


GAIN 


1970 


19813.6 


1000 


100 


73.485 


1 .42949E+06 


1971 


20965.4 


1200 


110 


77.7816 


3.13319E+06 


1972 


22182.4 


1400 


120 


82.336 


5.13125E+06 


1973 


23468. 1 


1500 


130 


87.164 


7.46928E+06 


1974 




1500 


130 


92.2823 


1 .02104E+07 


1975 




1500 


130 


97.7089 


1.33882E+07 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



STOCK RETURNS REPORT 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M .D£X»KtS 

STKRTN 
36098 



STKRTN computes a matrix of returns for an investment in a stock. It 
then computes an average return for a purchase at the beginning of a 
year, selling at each of the following years' ends, and computes an 
average return for all possible holding periods. It also computes an 
average return, standard deviation, and coefficient of variance for 
different length holding periods. 



Data can be entered from either the teletype as it becomes necessary, or 
internally with data-statements. The first question in the program will 
ask the user to indicate his choice. The following information is 
necessary if the data-statement option is chosen. 

Beginning in Line 9900: 

N = # of years involved 

Yl = first year for which data will be entered 

D,,P. = for each year, the dividend per share, followed by the 
closing stock price for that year 

If N > 25 change dim statement in line 9205 accordingly. 
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RUN 

GET-$STKRTN 

RUN 

STKRTN 

* STOCK RETURNS * 

DO YOU WISH TO ENTER YOUR DATA FROM THE TELETYPE* OR INTERNALLY 
USING DATA-STATEMENTS? CT' FOR TELETYPE* 'D' OTHERWISE)?T 

FOR HOW MANY YEARS DO YOU WISH TO ENTER PRICE AND DIVIDEND DATA, REMEM- 
BERING THE NEED FOR A BASE YEAR?? (MAX # OF YEARS IS 25)?6 

WHAT IS THE FIRST YEAR FOR WHICH YOU WISHTO ENTER DATA?1969 

ENTER THE DIVIDEND PER SHARE AND THE CLOSING STOCK PRICE* SEPERATED 
BY A COMMA* FOR EACH OF THE FOLLOWING YEARS. 



YEAR 1969 

YEAR 1970 

YEAR 1971 

YEAR 1972 

YEAR 1973 

YEAR 1974 



DPS* CSP 

?5.00* 50 

?5.10* 55 

?5.25* 60 

?5.50* 75 

?6.00* 80 

?5.75* 85 



*********************************************************************** 
RETURNS ON INVESTMENTS 



TO 
FROM 
1969 
1970 
1971 
1972 

TO 
FROM 
1969 
1970 
1971 
1972 
1973 



1970 
.202 

1974 

.20248 
.20263 
.20905 
. 14072 
. 13437 



1971 

.1945 
.18636 



1972 

.23774 
.25847 
.34166 



1973 

.21693 
.22286 
.24392 
. 14666 



AVERAGE RETURN FROM 1969 = .21073 

AVERAGE RETURN FROM 1970 = .21758 

AVERAGE RETURN FROM 1971 = .264877 

AVERAGE RETURN FROM 1972 = .14369 

AVERAGE RETURN FROM 1973 = .13437 

AVERAGE RETURN FOR ALL 
POSSIBLE HOLDING PERIODS = .209357 



FOR ALL 1 YR HOLDING PERIODS t 
FOR ALL 2 YR HOLDING PERIODS: 



AVERAGE 
RETURN 

20221 
.209402 



FOR ALL 3 YR HOLDING PERIODS* .223217 
5.24841E-02 

FOR ALL 4 YR HOLDING PERIODS: .20978 
3.40831E-02 



FOR ALL 5 



YR HOLDING PERIODS: .20248 



FOR ALL POSSIBLE HOLDING PERIODS: .209357 



STANDARD 

DEVIATION 

7.40077E-02 

4.62019E-02 

1 . 17153E-02 

7. 14995E-03 







COEFF. 
VARIATION 
.365994 

.220637 



5.16289E-02 







.246607 



************************************************************************ 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M JS/Xl3 l\j 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



EXPONENTIAL SMOOTHING AS A STOCK GUIDE 



STKSMO 
36099 



STKSMO uses exponential smoothing on past price data to provide a guide 
for the timing of buy and sell orders of a given stock. 



STKSMO is designed to keep an internal record of the price history of a 
given stock. The first time it is used, the input data is smoothed 
exponentially to provide a list of price forecasts. At the completion of 
this first run the user is asked whether he will wish to use the results 
of this run at a future time. If he so chooses, he should copy the lines 
that are then provided, and re-save the program, perhaps under a new name 
for clarity. Then, the next time the program is run, the initial trends 
have already been determined, and any new data can be accepted, and acted 
upon more reliably. After this second and all subsequent runs, a message 
will be provided for each new period describing the buy or sell action 
which ought to be taken. 

The data for the first run should simply be the actual price of the given 
stock for any N number of consecutive periods. 



100 periods of data per run is the maximum. Otherwise alter the dim- 
statements in lines 9025 and 9030. 
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RUN 

GET-SSTKSMO 

RUN 

STKSMO 

* EXPONENTIAL SMOOTHING AS A STOCK GUIDE * 

THIS PROGRAM USES EXPONENTIAL SMOOTHING OF PAST PRICE DATA TO PROVIDE 
A GUIDE FOR THE TIMING OF BUY AND SELL ORDERS. 

TO ENTER THE DATA FOR THE STOCK YOU ARE CONSIDERING* TYPE THE DATA 
BEGINNING IN LINE 9900. NO MORE THAN 100 PERIODS MAY BE CONSIDERED. 
THEN TYPE: f 9035 LET Q=l' 
•RUN' 
DONE 

9900 DATA 100* 102* 104*105* 106* 106*107*108* 109* 1 10* 1 1 1* 1 12 
9035 LET Q=l 
RUN 
STKSMO 

* EXPONENTIAL SMOOTHING AS A STOCK GUIDE * 
FOR HOW MANY PERIODS DID YOU ENTER DATA? 12 

ENTER A SMOOTHING COEFFICIENT BETWEEN 0.1 AND 0.9?. 75 

*********************************************************************** 
PERIOD ACTUAL ESTIMATED ESTIMATED PREDICTED 

PRICE PRICE GROWTH PRICE FOR 

NEXT PERIOD 

1 100 

2 102 

3 104 

4 105 

5 106 

6 106 

7 107 

8 108 

9 109 

10 1 10 

11 111 

12 112 

*********************************************************************** 



DO YOU WISH TO USE THIS PROGRAM AS A CONTINUING AID FOR THE TIMING OF 
BUY AND SELL DECISIONS ON THIS SAME STOCK AT SOME FUTURE TIME?YES 



WHAT IS THE NAME OF THIS STOCK?HEWLETT-PACKARD COMMON 

WHAT TIME PERIOD HAVE YOU USED THUS FAR??<EX:MAY 1*1969 TO MAY 1*1970) 

7JANUARY* 1968 TO DECEMBER* 1968 

THEN ENTER THE FOLLOWING LINES BEFORE SIGNING OFF: 

•9035 LET Q=2* 

•9286 LET XCX9) = 111.667 • 

•9287 LET Y<Y9> = 111.334 • 

•9288 LET A = .75 • 

•9280 LET A$ =*HEWLETT-PACKARD COMMON' • 

•928 1 LET B$ =• JANUARY* 1968 TO DECEMBER* 1968* • 

'KILL-STKSMO* 

'SAVE* 

DONE 

9035 LET Q=2 

9286 LET X(X9) = 11 1.667 

9287 LET YCY9) = 111.334 

9288 LET A = .75 

9280 LET AS = "HEWLETT-PACKARD COMMON" 

928 1 LET B$ = "JANUARY* 1968 TO DECEMBER -* 1968" 

KILL-STKSMO 

SAVE 



100. 


1.99997 


102. 


102. 


1.99997 


104. 


104. 


1.99997 


106. 


105.062 


1.43747 


106.5 


106*031 


1.15622 


107. 187 


106*074 


.488251 


106*562 


106.973 


.734344 


107.707 


107.982 


.899 139 


108.88 1 


108.993 


.966156 


109.959 


109.997 


.989365 


1 10.987 


110.999 


.99678 


11 1.996 


112. 


.999069 


1 12.999 
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RUN 
STKSMO 

* EXPONENTIAL SMOOTHING AS A STOCK GUIDE * 

THIS PROGRAM IS BEING USED TO PROVIDE A GUIDE TO THE TIMING OF BUY 
AND SELL ORDERS ON HEWLETT-PACKARD COMMON. 



IT IS BASED UPON DATA FROM THE PERIOD: JANUARY* 1968 TO DECEMBER* 1968. 

FOR HOW MANY ADDITIONAL PERIODS FOLLOWING THE LAST MARKET DATA 

SHOWN DO YOU WISH TO ENTER DATA? 12 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 8 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 

WHAT IS THE PRICE FOR PERIOD 



1 


? 1 12 


2 


? 1 13 


3 


?114 


4 


?113 


5 


? 1 12 


6 


?U3 


7 


? 1 12 


8 


? 1 14 


9 


? 1 15 


10 


? 1 16 


11 


?117 


12 


?1 18 



WHAT PERCENTAGE DIFFERENCE (EXPRESSED AS A DECIMAL) BETWEEN THE PRE- 
DICTED AND ACTUAL PRICE WOULD YOU LIKE TO USE AS A SCREENING RATE 
FOR THE BUY AND SELL ORDERS?. 02 

************* ******************************************** ************** 
PERIOD ACTUAL ESTIMATED ESTIMATED PREDICTED 

PRICE PRICE GROWTH PRICE FOR 

NEXT PERIOD 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



112 
113 
114 
113 
112 
113 
112 
114 
115 
116 
117 
118 



1 12*062 


.437073 


112.5 


112.969 


.718597 


1 1 3 . 68 7 


113*98 


.89447 


114.875 


113. 117 


-. 160172 


112.957 


112.06 


-.698502 


11 1.361 


112.898 


.223251 


113*121 


112.07 


-.407227 


111.663 


113*854 


.907425 


114.761 


114.985 


1.04169 


116.027 


116*002 


1.02663 


117. 028 


117.002 


1.0107 


118*012 


118.001 


1*00365 


119.004 



*********************************************************************** 



IN PERIOD 1 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 2 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 3 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 4 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 5 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 6 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 7 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 
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IN PERIOD 8 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 9 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 10 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 1 1 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



IN PERIOD 12 
LESS THAN 2 



THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY 
PERCENT* AND NO BUY OR SELL ORDER IS INDICATED. 



DO YOU WISH TO USE THIS PROGRAM AS A CONTINUING AID FOR THE TIMING OF 
BUY AND SELL DECISIONS ON THIS SAME STOCK AT SOME FUTURE TIME7NO 



THEN ENTER *9035 LET Q=0»* 'KILL-STKSMO f * AND 'SAVE' BEFORE SIGNING OFF. 

DONE 

9035 LET Q=0 



KILL-STKSMO 
SAVE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R G R A M U XX»3XVS 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



STOCK VALUE AND EVALUATION REPORT 



STKVAL 
36100 



STKVAL calculates a stock's value as determined by its growth rate over 
a period of years, and determines whether it is advisable to purchase 
the stock or not. 



It is assumed that at some point in the stock's life its earning's 
growth rate will approach 5 percent, a conservative estimate of the 
currently expected growth rate of our economy. 

Before this long-term growth rate is reached, there will be a period of 
non-normal growth. This non-normal growth period may contain many 
shorter periods of differing growth rates. For each of these shorter 
periods, you will be asked to supply the ending year of the period, and 
the growth rate you expect for the stock during this period. 

It is important to note that when you have reached the end of what you 
consider the non-normal period, you must enter .05 as the expected 
growth rate. Any year greater than the beginning year will suffice. 

For initialization, note remark at line 9765. 

The data item in line 9790 is the value of the first period under con- 
sideration. It is here initialized to the year 1969. By changing this 
value one can initialize the program to any year, or, if monthly or 
semi-annual periods are being considered, to any period ID number. 



The program is limited to a 50 year life, 
the dimensions in lines 9025 and 9030. 



To increase this life, change 
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RUN 

GET-SSTKVAL 

RUN 

STKVAL 

* STOCK VALUE & EVALUATION * 

THIS PROGRAM DETERMINES WHETHER A CERTAIN STOCK OUGHT TO BE INVESTED 
IN, DEPENDING ON CERTAIN INPUT CONDITIONS. IT ALSO PROVIDES A LIST 
OF THE STOCK'S VALUE AND PRICE FOR EACH PERIOD. 

WHAT IS THE CURRENT MARKET VALUE OF THE STOCK UNDER CONS IDERAT I ON? 1 00 

WHAT IS THE STOCK'S CURRENT EARNINGS PER PERIOD710 

WHAT DO YOU EXPECT THE NORMALIZED EARNINGS FOR THE NEXT PERIOD TO BE?20 

WHAT IS THE CURRENT MARKET CAPITALIZATION RATE?. 12 

AND WHAT IS THE PAYOUT RATIO?. 33 



NOW PLEASE ENTER THE ENDING YEAR AND THE GROWTH RATE YOU EXPECT 
FOR EACH OF THE NON-NORMAL GROWTH PERIODS BEFORE THE STOCK SETTLES 
TO A STEADY 5% RATE. 

(REMEMBER THE LAST ENTRY MUST INDICATE THE ATTAINMENT OF THE 5% RATE). 



BEGINNING ENDING GROWTH 
YEAR YEAR RATE 



1970 


?1970, 


2.00 


197 1 


?1971, 


1.75 


1972 


71972, 


1.50 


1973 


71974, 


1.25 


1975 


71975, 


1.00 


1976 


?1980, 


.50 


1981 


71985, 


.25 


1986 


?1990, 


.10 


1991 


71991, 


.05 



1969 



VALUES FOLLOW: 



PRICE 


t S 100 


EARNINGS 


: $ 10 


P/E RATIO 


: 10 



ft******************************************************************** 



INTRINSIC VALUE = 114146. 

FROM THE INFORMATION YOU HAVE SUPPLIED, 
AND SINCE THE INTRINSIC VALUE IS EXACTLY 
127736. PERCENT ABOVE THE PRESENT PRICE 
I AM SURE THAT THIS STOCK SHOULD BE 
PURCHASED AT THIS TIME. 



DO YOU WANT A LIST OF VALUES IN FUTURE YEARS7YES 

YEAR EARNINGS GROWTH CAPITALIZER 

RATE 



1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 



20 


2 


60 


1.75 


165 


1.5 


412.5 


1.25 


928.125 


1.25 


2088.28 


1 


4176.56 


.5 


6264.84 


.5 


9397.27 


.5 


14095.9 


.5 


21143.8 


.5 


31715.8 


.25 



5707.28 

2130.61 

867.619 

388.561 

193.27 

96.0591 

53.6281 

39.8223 

29.514 

21.8171 

16.0701 

11.779 



VALUE 

(BEGINNING 
OF YEAR) 

1 14146. 

127836. 

143157. 

160281. 

179379. 

200598. 

223981. 

249481 . 

277351. 

307532. 

339784. 

373581. 
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1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 



39644.7 


.25 


49555.9 


.25 


61944.9 


.25 


77431.1 


.25 


96788.9 


• 1 


106468. 


• 1 


1 17115. 


• 1 


128826. 


• 1 


141709. 


• 1 


155879. 


.05 


V/E RATIO = 


= 11414.6 



10.29 

8.95584 

7.76044 

6.68935 

5.72966 

5.53384 

5.33445 

5.13144 

4.92474 

4.71428 



407944. 
443815. 
480719. 
517964. 
554567. 
589175. 
624742. 
661063. 
697878. 
734860. 



********************************************************************** 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M IS XXldXv/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



CALCULATE TRUCK FREIGHT RATES 



TRCIQ1 
36174 



This proaram calculates for truck movements the break point weights 
for a given commodity between any two points as published in any truck 
freight tariff. It then prints a table suitable for use by anyone 
involved in rating, preparing or checkinq truck freight shipments. 



See line 60 to 120 of the program. The user should prepare a worksheet 
with the required data before using the program. The option of printing 
multiple copies of the results is provided as terminal cost to print 
additional copies may be equal to or less than other means of duplication, 



Jeff Johnson 
Hewlett-Packard/Eastern Sales Region 
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RUN 

RUN 
TRCKU 

DO YOU REQUIRE INSTRUCTIONS7NO 

FROM?EWR 

T07PARAMUS* NEW JERSEY 

VIA7ACI DESIGNATED TRUCK 

FOR7PICKUP AND DELIVERY OF ANY COMMODITY 

ENTER EFFECTIVE DATE OF RATES730JUL1 

ENTER MINIMUM CHARGE IN $74.05 

HOV MANY RATE CLASSES IN THIS COMMODITY ARE THERE76 

PLEASE ENTER DATA AS REQUIRED! 

RATE 1- $71.80 

WEIGHT 1-7100 

RATE 2- S71.70 

WEIGHT 2-71000 

RATE 3- $71.60 

WEIGHT 3-72000 

RATE 4- $71.15 

WEIGHT 4-7 3000 

RATE 5- $7.95 

WEIGHT 5-7 5000 

RATE 6- $7.75 

WEIGHT 6-710000 

HOW MANY COPIES? 1 



FROM....EWR 

TO. PARAMUS, NEW JERSEY 

VIA ACI DESIGNATED TRUCK 

FOR PICKUP AND DELIVERY OF ANY COMMODITY 

ACT GROSS WT CHARGEABLE WT RATE/LB 
1 TO 225 DECLARE AS MINIMUM 



$0.0180 
$0.0170 

$0.0170 
$0.0160 

$0.0160 
$0.0115 

$0.0115 
$0.0095 

$0.0095 
$0.0075 

$0.0075 



226 


TO 


944 


ACTUAL 


945 


TO 


1000 


1000 


1001 


TO 


1882 


ACTUAL 


1883 


TO 


2000 


2000 


2001 


TO 


2156 


ACTUAL 


2157 


TO 


3000 


3000 


3001 


TO 


4130 


ACTUAL 


4131 


TO 


5000 


5000 


5001 


TO 


7894 


ACTUAL 


7895 


TO 10000 


10000 


0001 


TO 




ACTUAL 



CHARGES 

$ 4.05 

AS EXTENDED 
$ 17.00 

AS EXTENDED 
$ 32.00 

AS EXTENDED 
$ 34.50 

AS EXTENDED 
$ 47.50 

AS EXTENDED 
$ 75.00 

AS EXTENDED 



EFFECTIVE DATE OF RATES. . 30 JUL 1 



DO YOU HAVE MORE DATA7NO 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED PROGRAM DAblv 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



TRUE ANNUAL INTEREST RATE ANALYSIS 



TRUINT 
36101 



TRUINT calculates the true annual interest rate charged on an installment 
load. 



Self-explanatory. 

Four input values are required: 

A = amount of loan (in dollars) 

P = amount of each payment (in dollars^ 

N = total number of payments 

K = number of payments per year 
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RUN 

GET-STRUINT 

RUN 

TRUINT 

* TRUE ANNUAL INTEREST RATE * 

THIS PROGRAM CALCULATES THE TRUE ANNUAL INTEREST RATE CHARGED ON AN 
INSTALLMENT LOAN. 

IF YOU NEED INSTRUCTIONS TYPE 1* OTHERWISE TYPE 0: ?1 

TO USE THIS PROGRAM IT IS NECESSARY FOR YOU TO SUPPLY THE VALUES FOR 
FOUR VARIABLES! A = AMOUNT OF LOAN (IN $)* P = AMOUNT OF EACH 
PAYMENT <$)* N = THE TOTAL NUMBER OF PAYMENTS DUE* AND K = THE NUMBER 
OF PAYMENTS DUE IN ONE YEAR. 

WHAT ARE A*P*N*K 7 10000*10*1500*52 

THE TRUE ANNUAL INTEREST RATE = 3.03 

ANOTHER CASE?? TYPE 'N* TO QUIT* 'Y* TO TRY AGAIN?Y 
WHAT ARE A*P*N*K 7 1000*100*11*11 

THE TRUE ANNUAL INTEREST RATE = 17.85 

ANOTHER CASE?? TYPE 'N* TO QUIT* 'Y' TO TRY AGAIN7N 
DONE 



BUSINESS AND MANUFACTURING APPLICATIONS (700) 

CONTRIBUTED P R O G R A M .DZXtSHt/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



INVESTMENT STRATEGY ANALYSIS 



VRRC 
36557 



This program uses the Tektronix 4010 display to plot results for each of 
ten different investment strategies over a period of time selected by the 
user. The time-period can begin in any year between 1931 and 1967 
(inclusive) and can end in any later year in the same range. The user 
specifies the beginning and ending years. The program then determines the 
annual returns obtained with each of the ten strategies for each year 
within the period. Four graphs are produced. The first shows the average 
annual returns for the ten strategies. The next shows the values of "beta" 
-- the slope of a regression line obtained by regressing the strategy's 
returns on those of the market as a whole. The third graph shows the 
geometric mean returns for the ten strategies. The final graph provides 
a scatter diagram relating the values of the average annual returns to 
those of beta for the ten strategies. A regression line is also fit to 
the data in the final graph. 

Strategy 10 involves investment each year in the top 10% of the stocks 
ranked on the basis of market sensitivity during the previous 60 months. 
Strategy 9 uses the next 10%, etc. . Thus strategy 10 is intended to be 
a high-risk return strategy, while strategy 1 is intended to be a low 
risk-return strategy. 

INTRODUCTION 

Within the last decade economists have investigated rather thoroughly the 
nature of a "perfect" or "efficient" market for securities. A widely used 
model dealing with uncertainty is that developed by Sharpe (6), Lintner (3). 
Mossin (5), and Fama (2), based on the pioneering contributions of 
Markowitz (4) and Tobin (8). Variously known as the "capital asset pricing 
model," "capital market theory," or the "market line theory," the approach 
deals with ex ante or predicted relationships. Breifly, it suggests that: 

1) the appropriate measure of risk for a security or portfolio is the 
covariance of its rate of return with that of a portfolio com- 
posed of all risky assets, each held in proportion to its total 
value, and 

2) the expected return of any security or portfolio will equal a 
constant plus some other constant times its risk. 

(Instructions continued) 



For a detailed discussion of the Tektronix 4010 Display Terminal see the 
documentation for the "Subroutine display package for the Tektronix 4010 
Terminal", VSUB, #36558. This documentation consists of (Technical Report 
No. 3) "Risk-Return Classes of New York Stock Exchange Common Stocks, 1931- 
1967" by William F. Sharpe and Guy M. Cooper (September, 1971). Permission 
to reprint has been granted by the authors. 



Graduate School of Business 
Standord University 
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Derivation of these results can be found in Sharpe (7). 

While the model provides important insights into the nature of actual capital markets, it is of limited 
value for the selection of an investment strategy unless additional specifications are made concerning 
the stability and/or predictability of key measures. 

A number of investigators have performed tests of such expanded capital asset pricing models. The 
original specifications are augmented with assumptions about the stability of key variables through 
time. The expanded models suggest (1) that measurement of values during some previous period can be 
used to implement strategies that will in fact differ with respect to both risk and expected return; 
(2) that high-risk, high-return strategies will return more on the average than low-risk, low-return 
strategies; and (3) that high-risk, high-return strategies will bring greater losses in bear markets 
(i.e., have more risk) than will low-risk, low-return strategies. 

An extensive study of this type was performed by Black, Jensen and Scholes (1). They were concerned 
primarily with testing the validity of an expanded capital asset pricing model, and less directly with 
assessing the performance of alternative investment strategies. In this paper, the general approach 
of Black, Jensen and Scholes is followed with modifications designed to reduce its expense as a practical 
investment selection technique. Moreover, we report information particularly relevant to the selection 
of such a technique. Our focus is primarily on assessing alternative investment strategies; by and 
large, we bypass issues concerned with the adequacy of various expanded capital asset pricing models. 1/ 

Performance Measures 



For any single period, a relevant measure of performance from the investor's point of view is return: 

. ending value + dividends - beginning value 

return :: a r — : — : => 2 a 

beginning value 

For securities, return can be calculated on a per-share basis, with appropriate adjustments for stock 
dividends and stock splits. 

A related measure is appreciation: 



appreciation 



ending value - beginning value 
beginning value 



The other component of return is yield: 

dividends 



yield 



beginning value 



Obviously: 



return 



appreciation + yield 



The data used in this study were taken from the CRISP (Center for Research in Security Prices) tapes 
developed at the University of Chicago. Monthly returns and appreciation figures for all New York 
Stock Exchange stocks over the period from January 1926 through June 1968 were utilized. 

Performance over a number of periods can be measure by the average return. Let R . represent the return 
on a portfolio of stocks in time period t. The average return from period 1 through period T is: 

, T 



average return 



T t=1 pt 



(where i denotes summation) 

An alternative measure of performance is the geometric instead of the arithmetic mean. The result indi- 
cates the constant return in each period that would have provided the same terminal value as the actual 
series of returns. 

The value is: 



equivalent constant return 



n (1 + R n+ ) 



t=l 



(where n denotes multiplication) 



pt 



- 1 
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Risk can be measured in a great many ways. We focus on a measure that highlights the impact of swings 
in the market on the return from a security or portfolio. If there were no prospects of bear markets, 
there would be little risk in the common meaning of the term. Stocks are considered risky because they 
can go down. And typically, the more sensitive a security or portfolio is to swings in the market, the 
more it goes down in a bear market. To measure this, we use the slope of a regression line relating 
return on the portfolio to the return on a broadly-based portfolio used to represent "the market." 
Figure I provides an illustration. 



Return on Portfolio 
or Security (R ) 




Return 
on the 
"market" 

(R ) 



FIGURE I 
We term the slope of such a line "beta." More formally: 2/ 



Cov (R , Rj 
p m 



Var (RJ 
m 



Where: 



Cov (R , R ) = covariance between R p and R n 



t=l P* P 
Var (R ) = variance of R 



* (Rn, " «U ("U " R J 



mt nr 



T 
I 
t=l 



( R m * - RJ 2 

mt m 



R = average return on portfolio p 



R = average return on the market portfolio 
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For purposes of this study, the Fisher market index included on the CRISP tape was used to measure R . 

It is important to recognize that beta may not provide an adequate measure of the total risk of a 
portfolio. However, for well diversified portfolios, the majority of the variation in return is 
attributable to changes in the return on the market, and beta will thus provide a good measure of risk. 

Risk-Return Classes 

In an efficient market, one rarely gets something for nothing. If investors prefer high average returns 
to low average returns and prefer low risk to high risk, prices should adjust so that the best low risk 
strategy provides lower returns on the average than the best high risk strategy. 

The average return of a portfolio is simply the weighted average of the average returns of its component 
securities, with the proportions of value used as weights. Moreover, the beta of a portfolio is a weighted 
average of the betas of its component securities, with the proportions of value used as weights. Finally, 
the beta of a well-diversified portfolio provides a good surrogate for its total risk, since almost all 
fluctuations in the portfolio's value will follow market swings. 

A well -diversified portfolio with a high beta value will be risky. In an efficient market, it will also 
provide a high average return. A portfolio of this type may be constructed by choosing a large number of 
stocks with high beta values. Such a strategy should provide high returns on the average, but with 
substantial risk. 

A well-diversified portfolio with a low beta value will have relatively little risk. In an efficient 
market, it will also provide a relatively low average return. A portfolio of this type may be cons- 
tructed by choosing a large number of stocks with low beta values. Such a strategy should provide 
relatively low returns on the average, but with little risk. 

In a period in which the market goes up, high-beta stocks will go up more than low-beta stocks. Unless 
divided yields are strongly inversely related to beta values, average return and beta will thus be 
positively correlated over periods in which the market goes up. And since both history and expectations 
of risk-averse investors indicate that the market is more likely to go up than down, over long periods 
average return should be positively related to beta. 

Stocks with high beta values should have high returns on the average; they may be said to be in a high 
risk- return class . On the other hand, stocks with low beta values should have low returns on the 
average; they may be said to be in a low risk-return class . 

To use this relationship as a basis for an investment strategy, some means must be found to select stocks 
that will, in fact, have high beta values in the future . An obvious possibility involves the measurement 
of beta in the past, on the assumption that beta is reasonably stable over time. This procedure was uti- 
lized by Black, Jensen and Scholes and will be adopted here, with minor modifications. 

Market Sensitivity 

To measure performance it is important to use return -- i.e., appreciation plus dividend yield. However, 
most variation in return is due to changes in appreciation; dividend yield being relatively constant over 
time. This suggests that the value of beta would not change significantly id dividend yield were ex- 
cluded. To avoid confusion, we continue to use the term "beta" for the slope of the regression line re- 
lating the appreciation on a portfolio or security to that of the market. Figure II provides an illus- 
tration. 
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Per cent Change in the 
Price of the Porfolio 
(or Security) 



Slope = market 

sensitivity 




Per Cent 
Change ir. 
the Value 
of the 
market 
portfolio 



FIGURE II 



To compare the two measures, the monthly returns and appreciation values for 1572 securities during the 
period from January 1960 through June 1968 were utilized. For each security the value of beta was cal- 
culated using returns; then the value of market sensitivity was calculated, using only price changes. 
The changes were very similar. If each of the 1572 pairs were plotted, the points would lie almost 
exactly along a 45-degree line through the axis, as illustrated in Figure III. The similarity of the 
two measures is clear from the results obtained when the values of beta were regressed on the values of 
market sensitivity. The regression equation was: 



Beta 



,004 + .997* (Market sensitivity) 



Coefficient of determination' (R ) = .996 
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Beta 




Market 
Sensitivity 



FIGURE III 



This suggests that as a practical matter, market sensitivity may be used instead of beta when classifying 
securities into risk-return classes. Since dividend information may be difficult to collect and verify, 
this makes it possible to lower the cost of implementing strategies based on risk-return classes. 

Portfolio Selection Strategies 

We have determined the outcomes obtained from each of ten investment strategies during the 37-year period 
from 1931 through 1967. For each security listed on the New York Stock Exchange, market sensitivity was 
calculated, based on the monthly price changes for the 60 months prior to the beginning of the investment 
claendar year (a security would not be included if a full 60 months of data were not available). The 
number of securities for which market sensitivity was calculated ranged from 478 (in 1931) to 985 (in 
1967). 

After the market sensitivity values were calculated, the numerical values were ranked. Based on this 
ranking, securities were divided into deciles. The securities in the top decile (i.e., those with the 
highest market sensitivities) were considered to be in risk-return class 10 at the time of classification. 
The securities in the next decile were considered to be in risk-return class 9, etc. . The number of 
securities in a given risk-return class ranged from 47 (in 1931) to 99 (in 1967). 

This procedure -- calculation of market sensitivities, ranking of securities, and assignment to risk- 
return classes -- was repeated for each of the possible investment years from 1931 through 1967. 

Strategies are numbered from 10 to 1. Strategy I involves the purchase of equal dollar amounts of all 
stocks in risk-return class I at the beginning of each year. Every dividend received during the year 
is reinvested in the stock that pays it (at the beginning of the month following payment). On the first 
of the next year, stocks are bought and sold until the portfolio contains equal dollar amounts of all 
stocks in risk-return class I at that time. Rebalancing is thus required both to accomodate changes in 
the set of stocks in the specified risk-return class and to account for differential price changes. 

To reduce the number of computations, the results have*not been adjusted to account for transactions 
costs. However, these are relatively small and differ little among strategies since annual performance 
measures are being considered and rebalancing is done only once each year. 

Performance 

Figures IVa through IVd show the results obtained when each of the ten strategies was followed over the 
entire period studied (from 1931 through 1967). Figure IVa shows the average annual return for each 
strategy. On the average, strategy 10 provided a return of over 22 per cent per year, while strategy 
1 provided less than 12 per cent. Although the values do not decrease uniformly, the general relation- 
ship is of the expected type — i.*-^-- ■ ~c ;i; - -•- "■ ---'• —+■ — - 1 *■—-* *■- 

provide lower average return. 



portfolios composed of securities in lower risk-return classes tend to 
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Figure IVb shows the actual values of beta for the ten strategies. Returns obtained with strategy 10 
moved 42 per cent more than the market as a whole; on the other hand, returns obtained with strategy 1 
moved only 58 per cent as much as the market as a whole. Again, the values do not decrease uniformly, 
but the general relationship is of the expected type -- portfolios composed of securities in lower risk- 
return classes tend to move less with swings in the market. 3/ 

Figure IVc shows the equivalent constant annual return for each of the ten strategies. Here the picture 
is far less clear. The investor concerned only with the very long run (in this case, 36 years) must take 
into account the impact of both risk and average return on his overall position. When returns vary, the 
geometric mean will always be smaller than the arithmetic mean, and the difference will typically be 
greater, the greater the variation. High risk-return classes typically offer a higher average return but 
also bring greater variability. The net effect over the very long term is thus relatively unpredictable. 
In this case, the best results would have been obtained with strategy 7. An investor who reinvested both 
capital and dividends every year while following strategy 7 would have accumulated as much wealth at the 
end of the period as if he had placed his money in a bank paying roughly 16 per cent interest per year, 
compounded annually. On the other hand, an investor following strategy 1 would have accumulated only 
as much wealth as if he had placed his funds in a bank paying roughly 10 per cent per annum, compounded 
annually. 

Figure IVd summarizes the relationship between average return and the actual value of beta for each of 
the ten strategies during this period. As expected, the relationship is positive and quite significant 
(during this period the market rose on the average). The intercept is somewhat higher than the return 
on relatively safe investments during the period -- a result consistant with that of Black, Jensen and 
Scholes -- and the relationship appears to be approximately linear. 4/ 

Figures IVa, b, c, and d were produced using the Tektronix T4002 display and the Hewlett-Packard 2000C 
computer at the Stanford Graduate School of Business. Users of this system can obtain results for any 
other period between 1931 and 1967 by calling for program $GRCC and running it. The program will give 
instructions, request the starting and ending year, and then provide the four graphs. By and large, the 
results will prove consistent with expectations. When the average market return is large, high risk-return 
classes tend to provide higher returns on the average than lower risk-return classes. Finally, the shorter 
the time-period studied, the less the results conform to expectations due to the influence of other fac- 
tors. 

Changes in Risk-Return Classes 

The investor who holds a well-diversified portfolio need not be unduly concerned about the possibility 
that one or more of his stocks may move into a different risk-return class in the future. Some of the 
securities that were formerly in risk-return class 5 may move to class 6 (or 7, 8, 9 or 10), while some 
of the others may move to class 4 (or 3, 2, or 1). But the effect on the total portfolio may nonetheless 
be negligible, as securities moving to higher classes can be offset by those moving to lower classes. 
Putting ft somewhat differently: it is easier to predict an average (i.e., the portfolio's beta) than 
the value of any single component (i.e., a given security's beta). 

But changes in risk-return class membership are not unimportant. They give rise to transactions costs 
for the strategies described here. They are particularly relevant for those who do not (and perhaps 
cannot) hold well -diversified portfolios -- e.g., corporate officers. And they are important when risk- 
return class membership is used to estimate a firm's cost of capital. 

To provide some evidence on such changes, the risk-return class of every security was determined for every 
year between 1931 and 1967 in which price and dividend data were available for the preceding 60 months. 
The risk-return class in each year was compared with first the class in the succeeding year, then the 
class five years hence. While the first comparison uses 48 months of common data, the second involves 
no overlap at all. Over 27,000 combinations were used for the first set of comparisons, and over 24,000 
for the second. 

Tables I and II summarize the results in transition matrices. For example, Table I shows that 74.2 per 
cent of the securities in risk-return class 10 in year t were still in risk-return class 10 in year t 
+ 1. Table II shows that only 35.2 per cent remained in risk-return class 10 in year t + 5. 5/ Table 
III provides another summary, indicating the frequencies with which securities were in the same risk- 
return class or within one risk-return class one and five years later. As this Table shows, there is 
substantial stability over time, even at the level of individual securities. For portfolios, of course, 
the relationship would be considerably more stable. 
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Figure IVa. Average Annual Returns 1931 through 1967 
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Figure IVb. Beta Values 1931 through 1967 
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Figure IVc. Equivalent Constant Annual Returns 1931 through 1967 
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Figure IVd. Average Return Versus Beta 1931 through 1967 
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Security Data 
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ass 9, 



Table IV shows the risk-return classes of all New York Stock Exchange stocks that could be assign 
to a class on January 1, 1967. Table IVa includes securities in class 10, Table IVb, those in cl_. 
etc. . Within a risk-return class, securities are arranged alphabetically (with minor exceptions). 
Beside the anme of each security is a list of symbols indicating its status in each year, beginning with 
1931 and ending with 1967. The symbols have the following meanings: 

* insufficient data for the prior 60 
months to allow classification 

9 risk-return class 10 

8 risk-return class 9 

7 risk-return class 8 

6 risk-return class 7 

5 risk-return class 6 

4 risk-return class 5 

3 risk-return class 4 

2 risk-return class 3 

1 risk-return class 2 







risk-return class 1 



Teh performance of simple strategies based on risk-return class memberhsip suggests the usefulness of 
data of the type shown in Table IV. The classifications can be used to test investment strategies that 
might have been adopted in 1967 or earlier. Moreover, they provide at least some information concerning 
current risk-return classes, if the stability shown in Tables II and III is at all applicable at present 



TABLE I 

TRANSITION MATRIX 

RISK-RETURN CLASS IN YEAR T 

VERSUS 

RISK-RETURN CLASS IN YEAR T + 1 



Risk-Return 

class in 

year t 

10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



10 



Risk-Return 
8 7 



class in year t 
6 5 



+ 1 



.7417 


.1712 


.0309 


.0111 


.0054 


.0011 


.0018 


.0004 


.0000 


.0004 


.1732 


.4989 


.2079 


.0587 


.0240 


.0104 


.0025 


.0004 


.0004 


.0004 


.0368 


.2122 


.4091 


.2094 


.0765 


.0232 


.0111 


.0029 


.0021 


.0007 


.0121 


.0657 


.2286 


.3564 


.1986 


.0804 


.0271 


.0079 


.0025 


.0007 


.0043 


.0199 


.0733 


.2246 


.3452 


.2060 


.0744 


.0231 


.0075 


.0018 


.0047 


.0097 


.0222 


.0764 


.2141 


.3535 


.2123 


.0696 


.0147 


.0047 


.0007 


.0018 


.0111 


.0314 


.0806 


.2168 


.3807 


.2043 


.0478 


.0093 


.0000 


.0018 


.0025 


.0096 


.0268 


.0686 


.2082 


.4268 


.2068 


.0321 


.0000 


.0004 


.0011 


.0036 


.0075 


.0196 


.0538 


.2089 


.5091 


.1843 


.0000 


.0004 


.0004 


.0014 


.0018 


.0011 


.0093 


.0323 


.1869 


.7471 



TABLE II 

TRANSITION MATRIX 
RISK-RETURN CLASS IN YEAR T 
VERSUS 
RISK-RETURN CLASS IN YEAR T + 5 
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Risk-Return 

class in 

year t 



10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



10 



Risk-Return class in 
8 7 6 



year t + 5 

5 4 



.3517 


.1929 


.1153 


.0568 


.0494 


.0373 


.0203 


.0120 


.0083 


.0079 


.2051 


.1835 


.1487 


.1272 


.0808 


.0601 


.0414 


.0228 


.0116 


.0128 


.1324 


.1593 


.1638 


.1303 


.1047 


.0890 


.0612 


.0393 


.0219 


.0149 


.0794 


.1310 


.1579 


.1327 


.1186 


.1083 


.0930 


.0583 


.0310 


.0149 


.0523 


.0977 


.1121 


.1343 


.1389 


.1195 


.1137 


.0820 


.0445 


.0293 


.0423 


.0647 


.0855 


.1041 


.1361 


.1361 


.1448 


.1112 


.0763 


.0336 


.0326 


.0491 


.0759 


.0994 


.1106 


.1254 


.1320 


.1448 


.1023 


.0611 


.0203 


.0289 


.0488 


.0715 


.0951 


.1146 


.1286 


.1588 


.1584 


.1084 


.0087 


.0161 


.0268 


.0384 


.0499 


.0771 


.1139 


.1630 


.2145 


.2314 


.0042 


.0087 


.0104 


.0203 


.0303 


.0419 


.0722 


.1133 


.2183 


.4047 



TABLE III 



Risk-Return 

Class in 

Year T 


Proportion in Same 
Risk-Return Class 


Proportion Within One 
Risk-Return Class 


In Year t + 1 


In Year t + 5 


In Year t + 1 


In Year t + 5 


10 


.7417 


.3517 


.9129 


.6927 


9 


.4989 


.1835 


.8800 


.5373 


8 


.4091 


.1638 


.8307 


.4534 


7 


.3564 


.1327 


.7836 


.4092 


6 


.3452 


.1389 


.7758 


.3927 


5 


.3535 


.1361 


.7799 


.4170 


4 


.3807 


.1320 


.8018 


.4022 


3 


.4268 


.1588 


.8418 


.4458 


2 


.5091 


.2145 


.9023 


.6089 


1 


.7471 


.4047 


.9340 


.6230 
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Table IV. Risk-Return Classifications 
for NYSE Stocks, 1 931 -1 967 



(See article by Sharpe and Cooper in this issue) 



TABLE IVa. Risk-Return Class 10 










1935 


'40 


45 


'50 


'55 


•60 


'65 




AMP Incorporated 
















99 


Admiral Corporation 










7554 


54899 


99999 


99 


Alleghany Corp. 


g 


99999 


99999 


99999 


98999 


99999 


99999 


99 


Allied Products Corp. 














554 


99 


Alside Inc 
















9 


American Export Industries Inc 








122 


21223 


23555 


34788 


99 


American Research & Development Corp. 
















9 


American Ship Building Co. 


001 


12233 


44452 


11100 


00012 


21432 


33889 


99 


Canteen Coip. 










1233 


22233 


54999 


99 


Bell & Howell Co. 










65324 


54555 


78999 


99 


Boston & Maine Corp. 


44 


56689 


99999 


99999 


99999 


99999 


88999 


9 


Bramfl Airways 








6 


78899 


99998 


89999 


99 


Bullard Co. 


8 


76777 


77762 


56689 


87/73 


11599 


99999 


99 


Calumet & Pecla Inc. 


46788 


87767 


88874 


45344 


67899 


99989 


88888 


89 


J. I. Case Co. 


88755 


54233 


45557 


65433 


57788 


87657 


78899 


99 


Cemco Instruments 
















9 


Cerro Corp 


43676 


66523 


44432 


22133 


46889 


99999 


99899 


99 


Certamteed Products Corp. 


78688 


88997 


77789 


98998 


89989 


97543 


4899 


99 


Cessna Aircraft Co 














9999 


99 


Chicago & Eastern Illinois RR 








9999 


98899 


99887 


88999 


99 


Chicago & Great Western Ry. (Del I. 








9999 


99999 


99999 


98989 


89 


Chicago Milwaukee St. Paul & Pacific 










99999 


99999 


98999 


99 


Chicago Rock Island & Pacific Ry 










76 


66888 


88888 


89 


Chris-Ctatt Industries. Inc. 








77799 


99986 


42334 


56999 


99 


Servel Inc 


5 


55764 


44437 


66667 


89887 


66455 


78999 


99 


Collins Radio Co. 
















99 


C.E and I. Steel Corp. 


99888 


88899 


98885 


57788 


99999 


99998 


88999 


99 


Colt Industries Inc. 


50355 


56758 


99998 


77733 


54335 


43799 


99999 


99 


Commercial Solvents Corp. 


7543 


33245 


56666 


66667 


78999 


99889 


99999 


99 


Congoleum Nairn Inc 


76322 


11132 


33334 


34443 


32222 


22578 


89988 


99 


Continental Airlines Inc. 
















9 


Continental Copper & Steel Industries 












8774 


44566 


89 


Copper Range Co. 










9 


99999 


98899 


99 


Diners Club Inc. 














9 


99 


Douglas Aircraft Co. Inc 




4374 


43342 


32211 


14458 


88862 


24999 


99 


Eastern Airlines 






3 


22122 


13677 


88778 


88899 


99 


Elgin National Watch 










123 


58899 


99999 


99 


Erie Lackawanna Railroad Co 


57888 


87669 


99956 


77777 


88899 


97999 


99999 


99 


Evans Products Co Del. 


9 


98989 


99998 


88899 


99998 


88999 


99988 


89 


Eversharp Inc 










6642 


01233 


56999 


99 


Fairchild Camera and Instruments 
















9 


Fansteel. Inc 












987 


77888 


99 


Federal Pacific Electric Co. 














64688 


89 


First Charter Financial Corp 
















99 


Fluor Corp Ltd. 














999 


99 


Foote Mineral Co 














899 


99 


Gar Wood Industries 






677 


78887 


88999 


99999 


99887 


89 


General Instrument Corp 










577 


78899 


99999 


99 


General Refractories Co 


55789 


88878 


88885 


66766 


77678 


75655 


66999 


99 


General Time Corp 






2257 


77654 


53346 


77789 


999 9 


99 


Hoffman Electronics Corp. 














78999 


99 


I T E Circuit Breaker Co. 














788 


89 


Indiana General Corp. 
















99 


International Rectifier Corp. 
















9 


Interstate Oepartmem Stores Inc. 


78 


88997 


88767 


66788 


78856 


52333 


14799 


99 


Joy Manufacturing Co. 








6665 


53446 


66755 


65788 


89 


Missouri Kansas Teas RR 


77977 


88689 


88999 


99999 


99999 


99999 


88889 


99 


Leesona Corp 
















9 


Lionel Corp 












233 


57999 


99 


Lukens Steel 










98998 


98968 


98899 


99 


MCA Incorporated 
















99 


Soo Line R R 








8 


88789 


99998 


78999 


99 


Monon Railroad 










9999 


9999/ 


64999 


9b 


National Airlines 










67889 


89998 


88877 


79 


New fork Central RR 


21444 


55568 


89988 


888/7 


899d9 


99999 


99989 


99 



CLASS 10 (cont'd) 


1935 


■40 


'45 


50 


'55 


Northwest Airlines 








5678 


76789 


Philadelphia and Reading Corp. 










4435/ 


Northwest Industries 








7 


99999 


Packard Bell Electronics Corp 












Pan American World Airways Inc 






6 


65444 


46/88 


Penn Central 


11433 


44245 


666/5 


56545 


6/788 


Piper Aircraft Corp 












Pittsburgh Steel 






997 


89999 


99999 


Plough Inc 










0001 


Polaroid Corp. 












Reading Co 


11655 


56336 


77786 


56533 


43344 


Reynolds Metals 




33424 


45668 


8/899 


89989 


Roan Selection Trust. Ltd. 












Ryder System Inc 












SCM Corp. 






346 


56544 


68887 


Seagrave Corp. 


14877 


77533 


43363 


88853 


56477 


Sparton Corp. 


9 


99998 


88888 


99999 


99999 


Standard Kollsman Industries 












Standard Packaging Corp. 












Standard Pressed Steel Company 












Rexall Drug and Chemical Co 




43 


44457 


57788 


87/55 


Worthmgton Corporation 


99666 


656/8 


88875 


554/8 


89988 


Sunshine Mining 






127 


8998/ 


787/8 


Telautograph Corp. 


11000 


00110 


11125 


44568 


99985 


Thiokol Chemical 












Trans World Airlines Inc. 






56545 


65433 


35799 


Transitron Electronic 












United Air Lines Inc. 




5 


5554G 


44434 


45788 


US. Industries Inc 


88999 


99899 


99998 


78889 


99999 


Perfect Film and Chemical Corp 










98765 


UMC Industries 












Vendo Co. 












Western Maryland Ry. 


88977 


7/458 


99899 


99998 


99999 


White Consolidated Industries Inc 


788 


78/78 


88888 


88899 


87646 



60 


'65 




99999 


99999 


99 


78/6/ 


89999 


99 


98999 


99999 


99 




8 


79 


887/6 


77999 


99 


88898 


88989 


99 




999 


99 


99998 


99899 


99 


11212 


56999 


99 




77 


89 


44565 


46889 


99 


99999 


99999 


89 




46656 


69 
99 


63778 


99999 


99 


64589 


89999 


99 


89999 


99999 


99 


6689 


99999 


99 




99 


89 
9 


54256 


77999 


99 


67777 


87778 


89 


8578/ 


78557 


89 


33699 


9999 


99 




9 


99 


99888 


88999 


99 
99 


99988 


87888 


89 


98889 


99999 


99 


31122 


03788 


99 




9 


99 
99 


99977 


87999 


99 


88989 


89999 


99 



TABLE IVb. Risk-Return Class 9 



ABC Consolidated Corp. 

Adams Milhs 

General Bronze Corp 

Allis Chalmers Manufacturing Co 

American Airlines 

Ambac Industries. Inc. 

American Photocopy Equipment Co 

Ampei Corporation 

Amphenol Corp 

Aimour & Co 

Arthur G McKee Co 
Associated Brewing Co. 
Avnet. Inc 
Bausch & Lomb Inc 
Beckman Instruments 
Beech Aircraft 
Bell Intercontinental Corp. 
Divco Wayne Corp 
Brunswick Coip. 
Bucyrus Erie 

Burndy Coip 
Burroughs Corp 
The Marquaidt Corp 
Carlisle Corp 
Cartel Wallace. Inc 
Chadbourn Gotham. Inc 
Chemetron Coip 
City Investing Co 
Conelco. Inc 
Crescent Lurp 













21 


25788 


1 


11111 


11101 


01212 


10012 


33222 


64888 


7 


66667 


87767 


678/6 


64353 


46667 


77/66 


66665 


55434 


33454 


45556 


77765 


56666 


65567 






3 


23233 


33457 


78788 


88777 


98444 


43688 


77778 


88898 


99898 


76643 


78888 

8 
998 


70355 


47856 


77777 


77789 


98888 


78877 


76787 






22213 


53223 


23332 


10879 


99876 

76 
9999 








12 


332/8 


88876 


86676 








764 


32246 
452 


87533 
13225 


45888 
54776 


6567/ 


77875 


55436 


66666 


66665 


76434 


20554 


77 


77867 


76664 


66666 


65/68 


77/88 


89988 


34333 


33422 


22245 


66554 


33213 


6/877 


6/677 
887 


56433 


33488 


8887/ 


757/6 


58/89 


88799 


9 99 






2 


33434 


55454 


23544 


56688 


UUU 


OUOOU 


001)00 


U46/B 


7434 b 


5888b 


98888 


9547/ 


67998 


89888 


88899 


888RR 
654 


9999/ 

j.mjn 


76777 

011233 
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CLASS3 (cont'd} 

Crowell Collier & Macmillan. Inc 

Curi.ihy Corp 

Curtis Publishing Co 

Dayco Corp 

Champlain National Corp 

Walt Disney Productions Inc 

Ouplan Corp 

Eastern Stainless Steel Corp 

Eltra Corp 

Endicott Johnson Corp 

Minerals & Chemicals Phihpp Corp 

Factor I Max I and Co IA) 

Fairchild Hitler Corp 

Financial Federation. Inc 

Florida East Coast Railway Company 

Vanadium Corp of America 

Foremost Dairies. Inc 

Foster Wheeler 

Foxbord Co. 

General Precision Equipment Corp. 

General Signal Corp. 

Gmn and Co. 

Glen Alden Corp 

Granby Mining Co . Ltd. 

Great Western Financial Corp. 

Harvey Aluminum. Inc. 

H. J Heinz Co 

Helene Curtis Industries, lie 

Hertz Corp. 

Hupp Corp. 

IPL. Inc 
IRC. Inc. 

Jaeger Machine Co. 
Kayser Roth Corp 
Spartans Imyers. Inc (New) 
lanvin-Charles ol the Ritz. Inc. 
Lear Siegler Corp 
Litton Industries 
Lowensiem. M & Sons 
McCall Corp. 

MetroGoldwynMayer. Inc 

Loews Theatres. Inc. 

Moore & McCormack Co. 

Motorola. Inc 

North American Coal Corp. 

Parke Davis 

Pittsburgh Coke & Chemical Co 

Revlon. Inc 

Ronson Corp. 

St. Louis San Francisco Ry 

Imperial Corp of America 

Schenley Industries. Inc. 

Schick Electric. Inc 

Sharon Steel Corp 

A. 0. Smith 

Wagner Electric Corp (New) 

Texas Gulf Sulphur 

Texas Instruments 

Getty Oil Co 

Twentieth Century Fox Film Corp. 

Ling Temco Vought. Inc 

U.S. Borax & Chemical 

U.S. Freight 

U.S. Smelting Refining and Mining 

Ward Foods. Inc 

Warner Lambert 

Western Union Telegraph Co 

Xerox Corp. 



1935 


"40 


'45 


'50 


'55 


'60 


"65 


0001 1 


11223 


44455 


56768 


88899 


99998 


a 

99999 


3 


44546 


67899 


99999 


99987 
8888 


7123? 
87666 


26877 
47888 


11333 


34378 


99999 


98754 


55577 


75666 


55657 
99 


3 


34211 


11125 


67787 


73456 


57777 


86656 


9 


99999 


99999 


99999 


99999 


99999 
5656 


99999 
68899 


001 11 


11112 


22230 


01111 


10011 


21000 
998 


11467 
88999 

89778 


99876 


65568 


88885 


67788 


88889 


99999 


98767 
21456 


7 


76788 


88888 


77889 


99998 


89966 


75677 






3236 


56765 


76534 


35778 


77898 


23654 


55368 


88887 


77877 


77476 


55877 
4533 


88888 
66899 


77788 


77798 


99866 


68788 


86765 
000 


67889 
00113 


87555 
35888 


66565 


55534 


34679 


99823 


22233 


34543 


22655 


98556 


66897 


54468 


99999 


99999 
366 


99999 
34466 

67688 


99988 
87877 

77777 


23544 


44211 


10024 


56655 


34565 
8857 


66599 
65899 


99999 
389 

98 

888 

88776 


01 


11121 


22212 


11354 


45434 


43453 


67999 


66544 


48221 


22213 


22221 


12215 


65765 


68888 

8 

34567 










4565 


54543 










3354 


44435 


77899 






0111 


10110 


00001 


25422 


32787 






997 


77777 


88899 

242 
999 


98887 

11223 
87999 


77656 

999 

26888 

99766 




22 


34456 


65677 


34446 


87566 


9 

78888 

999 


7 


77887 


77777 


87777 


88999 


97888 


89999 






6677 


77799 


89976 


78857 
657 


76787 
86887 


23322 


21102 


21121 


10011 


13345 


65677 


78866 


9999 


99899 


99984 


36778 


99886 


12457 


87888 




33 


33346 


75445 


45764 


57888 


88888 


68999 


99742 


22237 


66453 


34434 


44457 


77788 

78766 
788 


5 


54557 


89998 


88744 


55667 


76776 


78777 


42232 


22123 


34443 


44443 


46678 


88888 


68554 


998B8 


77877 


76789 


99988 


02110 


00233 
7632 


45545 
45899 


01565 


66558 


88885 


33345 


78887 


86687 


88988 



58 



TABLE 

Morrell. John and Co.. Inc 
Aeroquip Corporation 
Alcan Aluminum. Ltd 



IVc. Risk- Return Class 8 



011*2 



22230 



01000 



10013 146678 



67876 



87 
35898 
65567 



CLASS 8 (cont'd) 



1935 



American Broadcasting Paramouni 

American Enka Corp 

Anaconda Co 

Arvm Industries. Inc 

Baltimore & Ohio RR 

Basic. Inc 

Baxtor Laboratories. Inc 

Blaw Knox Co. 
Fiam Corp 

Bigelow Sanford. Inc 
Bliss. E W 
Budd Co 
Bulova Watch 
Carborundum Co 
Celanese Corp. 
Chemway Corp 
Cincinnati Milling Machine 

Cleveland Cliffs Iron Co. 
Clevite Corp. 

Combustion Engineering. Inc. 
Cooper Tire & Rubber Co. 
Corning Glass Works 
Crucible Steel Corp. 
Delta Air Lines. Inc. 
Detroit Steel Corp 
Diamond Shamrock Corp. 
Oiana Stores Corp. 

Oxford Paper Co. 
Filtrol Corporation 
FMC Corp. 

Food Giant Markets. Inc. 
General Dynamics Corp. 
General Tire & Rubber Co. 
Georgia Pacific Corp. 
Warner Brothers Pictures. Inc. 
Grace. W. R. & Co. 
Grand Union Co. 

Great Northern Paper Co. 
Universal American Co. 
Gulf. Mobile & Ohio RR. Co. 
Paul Hardeman. Inc. 
Hat Corporation of America 
Hewlett Packard Company 
Hotel Corp of America 
Inspiration Consolidated Copper Co. 
International Business Machines Co. 
International Minerals & Chemical Co. 

International Silver Co. 

Rayomer. Inc. 

International Telephone & Telegraph 

Jones & Laughlm Steel Corp. 

Kendall Company 

Kerr McGee Oil 

KLM Royal Dutch Airlines 

Mack Trucks. Inc. 

Magnavox Co. 

Mallory. PR. and Co. 

Mays. J W. Inc. 
McDermott (J. Ray) & Co. 
McLean Trucking Co. 
McNeil Corp. 
Mohasco Industries. Inc. 
National Acme 
National Can Corp. 
National Steel Corp. 
Newmont Mining Corp. 
Olin Mathieson Chemical Corp. 

Outboard Marine Corp. 
Owens Corning Fiberglass Corp. 
Pan American Sulphur Co. 
Perkin Elmer Corp. 
Shattuck. Frank G. 
Pfizer, Chas. and Co. 
Pittson Co. 



37998 



67987 



23455 



88775 



87456 



44556 

666 

88967 
55875 

99966 
3245 



33467 



55668 



87667 

99 
66445 



64789 
5 



57777 
77877 
22110 
66988 

444 
68887 



56333 
5 



88777 
11 



54332 



5323 



'40 



2133 
76786 

99775 
56785 



99997 
55667 
87955 

88887 
77478 
11000 
188998 

43455 
77644 



32346 



77868 
11125 
55523 

22224 



22232 
34998 



'45 



55535 



56551 



77788 

66554 

77788 
55535 

77756 
55566 



55532 
77776 



38875 



44432 

24 

55565 

667 

54435 

44334 



77788 
86888 
56665 



77768 
99876 



88897 

66655 
97 
33458 



66651 



78772 
67786 
33342 

44453 
213 



22124 
B7786 



50l_5j> 
44544 33335 



22233 
34455 



87777 

33456 

99999 
33344 

66576 
77776 



22344 
66743 



45467 



10132 
42344 
66655 
86788 

67754 

53566 



5455 
99999 



66767 

86645 
67666 
01 
88777 

33466 

76578 

88788 

5677 



13466 



44456 
67789 
21111 
46567 
35454 

23223 



155653 
6 
78889 



35678 
65433 



89987 

65566 

7745 

99887 

55553 

75647 

44456 

5451 



43335 
33354 

23423 
89999 

799 



23434 
45678 



67788 



99988 
33332 



65668 

66788 
67999 
67888 
31357 
54 
67799 
58466 
20225 



57778 
57656 

36645 
99999 

99999 

656 

43110 



76 

47566 
75333 



666661-5531 



89999 

9 

11112 



66633 



99867 
99998 
33434 
43 
34322 

6 

55567 66689 
99898 77899 
88778 99863 
64353 24568 

37799 99999 
67899 139989 
11232 35444 
44433 

56775 
89999 
99999199876 
88899 99987 



66654 

66545 
76667 



88989 
7596 



4458 

77776 
99999 
12336 
77887 
44556 

32220 



22223 

75544 
198898 



98877 
42436 



99999 
77888 
98753 
88876 
78878 
76777 

00113 
567 



32111 
33233 
99987 



8a;e 

345 

87 

67 

7 

87 
7 
67 
77 
77 
67 
67 
87 
77 
77 

77 
77 
57 
87 
77 
87 
77 
87 
67 
87 

67 
67 
77 
87 
67 
87 
77 
67 
87 
87 

77 
67 
57 
77 
67 
7 

77 
77 
77 
77 

77 
57 
87 
87 
87 
87 
87 
77 
97 
77 

97 

87 

57 

7 

99988 87 
87666 167 
46565 167 
64678177 
87677 67 
75677 77 



99888 

88766 
9958E 
888" 
77665 
5545E 
999S8 
64777 
45566 

87787 
75355 

63788 
99S58 
788 
99999 
76677 
01678 

66666 
43245 

7666? 
579=9 
22556 
87993 
84777 
52575 
377S3' 
34899 

67678 
87734 
98545 
33577 
87866 

89366 
89883 
42677 
35565 

68677 

99777 

76888 

88899 

8 

9898 

344 

88887 

79999 

776 



43545 
B5777 



22677 
55777 
39888 
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CLASS 8 (cont'd) 

Publicker Industries 
HaymunJ Intemaiional. Inc 
Reeves tituthers 

Reichhoid Chemicals 
Rheem Mlg 
Rmer Plaudler Corp 
Robenshaw Controls Co 
St Regis Paper 
Sun Chemical Corp 
Sunstrand Corp 
Superior Oil Company (Nev ) 
Texas Pacific Land Trust Ceri 
National General 

Vanan Associates 
Victor Comptometer Corp 
Wallace and Tiernan. Inc. 
Western Air Lines 
Westmghouse Electric Corp 
Radio Corp ol America 
Wheeling Steel 
White Motor 
Zenith Radio Corp 



1935 


'40 


'45 


50 


'55 


'60 


'65 










9988 
4447 


98899 
65673 


89977 

48778 
88 








67 


76664 


43408 


99999 


3 


32243 


32222 


57767 


63443 

55 

988 


22222 
65776 
89987 


22567 
777/8 
86878 




54423 


34445 


66676 


46544 


65677 


67666 
56 








89 


77841 


43446 


66787 


88654 


44333 


43343 


46535 


63478 
467 


88787 
333 

76899 


78888 
35677 

7 
99986 

8 
66778 










78899 


99975 


77644 


44333 


33322 


12233 


44543 


45434 


41345 


99877 


76554 


45568 


88866 


56644 


68788 


76777 




7778 


88886 


66688 


99999 


98888 


88777 




178 


88875 


56788 


88886 


33446 


88888 


8 


88898 


77757 


55656 


67542 


43346 


88999 



TABLE IVd. Risk- Return Class 7 



A J Industries. Inc 

Addressograph Multigraph Corp. 

Allegheny Ludlum Steel Corp 

Alpha Portland Cement 

Amerace Corp 

American Consumer Industries. Inc 

American Metal Climax, inc 

Armstrong Cork Co. 

Atlas Chemical Industries. Inc 

Atlas Corp. 

Bates Manufacturing Co (Del.) 
Callahan Mining Corp. 
Carpenter Steel Co. 
Carrier Corp 
Central foundry 
Central Soya Co . Inc. 
Chock Full Nuts Corp 
Chrysler Corp 
Clark Equipment 
Collins and Aikman Co. 

Columbia Pictures 

Consolidated Cigar Corp 

Cooper Industries 

Copeland Refrigeration Corp 

Copperweld Steel 

Crane Co 

Cutler Hammer. Inc. 

Cyclops Corp 

Dresser Industries. Inc Del 

Elastic Stop Nut Corp. of America 

Electric & Musical Industries. Ltd. 

Emerson Electric Co. 

Emhan Corp 

f erro Corp 

Flintkoie Co 

Food Fair Stores. Inc 

Ruberoid Co 

New York Air Brake 

Stanley Warner Corp. 

Shelter Globe Corp 

Grant. WT 

South Puerto Rico Sugar Co 
Harcoufl Brace and World. Inc. 
Harris Intertype Corp 
Hart Schafner & Marx 
Hayes Albion. Inc 
Hilton Hoieis Corp 
Hoover Ball & Bearing Co 
Houda'lle Industries. Inc 
Houseno'd Finance 



72000 


00000 


01247 


87765 


34357 


76765 


55333 




11121 


11112 


35566 


55423 


45778 


84654 




55646 


77763 


46777 


88888 


89989 


98788 


4 


44653 


33213 


32243 


23423 


55566 


55545 
444 


11023 


33742 


22148 


88973 


22100 


00114 


31131 


56999 


99843 


33324 


56677 


75665 


79888 


77555 






34446 


43333 


22331 


22112 


31566 


43343 


34433 


43321 


12222 


34576 


78778 


77877 






124 


67744 


22231 
67 


22245 
64454 


67655 
43454 


97999 


99889 


99999 


99999 


99999 


99999 


99866 






670 


23345 


56767 
7765 


78887 
46677 


77767 
77455 






988 


98999 


87789 


99985 


57777 


87676 


65534 


45433 


23355 


44442 


43434 


8 
32366 




55676 


77763 


22344 


56677 


77889 


98655 


8687 


77887 


78877 


66776 


77899 


99765 


41432 




323 


44557 


77787 


77735 


34576 


76898 


32356 


67774 


54444 


44522 


22233 


51122 


25777 








8 


76644 


33579 


99754 








77666 


78899 


98999 


99988 






6676 


55444 


45665 


66565 


75434 


66 


66665 


55655 


56676 


76655 


57768 


85342 






663 


45655 


45456 


78999 


99888 




8887 


87777 


67754 


66678 


99986 


66555 








6 


75432 


02332 


56676 


5 


54222 


23559 


88755 


76666 


26767 


77875 








8 


99886 


66645 


57888 
5644 








55566 


67887 


68889 


99888 






6657 


65677 


67665 


64333 


44677 








23466 


75544 


13121 


12677 






5532 


11455 


65445 


55443 


33355 


14555 


55468 


88876 


56644 


S6677 


66665 
34 


44456 

57677 

2 


7 11 


11111 


11101 


10122 


12100 


00112 


10011 


35422 


21012 


33344 


33111 


13353 
64456 


21110 
67664 


12576 

9B888 

53245 








888 


87675 
332 


43311 
11345 


12466 
55523 


8 


88887 


78766 


66688 


77774 


42312 


23356 






0002 


2000U 


00000 


00000 


00566 



CLASS 7 (cont'd) 

Hunt Foods & Industries, Inc 
Illinois Central Industries. Inc 
International Mining Corp (New) 
Sheraton Corp ol America 
Island Creek Coal (Oel I 
Jonathan Logan. Inc Del 
Kroehlei Mlg Co 
Lehigh Valley Industries 
Manhatten Industries 
Mesta Machine Co 

Midland Ross Corp 

Minnesota Mining & Mlg Co 

Montgomery Ward 

M S L Industries. Inc 

J J Newberry Co. 

Pitney Bowes, Inc. 

Pullman. Inc 

Raytheon Co 

Republic Corp. 

Revere Copper & Brass. Inc 

Rex Chainbelt. Inc. 

Rohm & Haas Co 

Rohr Corp. 

Roper Corp 

Royal Crown Cola 

Sangamo Electric Co Del 

Schlumberger, Ltd 

Scovill Mfg. Co 

Screw and Bolt Corp. of America 

Signode Corp 

Smith Kline & French Laboratories 

Sperry Rand Corp 

Stanray Corporation 

Stauffer Chemical Co. 

Richardson Merrill, Inc. 

Stokely Van Camp. Inc 

Suburban Gas 

TRW, Inc. 

Tandy Corp. 

Tishman Realty & Construction Co. 

Union Camp Corp 
Wilson tt Co 
Boeing Co. (The) 
U.S. Steel 

Vulcan Materials Co 
Welbilt Corp 
Wickes Corp 
Youngstown Steel Door 



1935 


'40 


'45 


'50 


'55 


'60 


65 










8651 


20102 


24788 


016* 


7 7608 


88889 


99999 


98999 


88888 


88666 


57999 


99998 


88H77 


7778/ 


54435 


Z5554 


G8878 


55777 


78798 


89899 


9999b 


5556/ 


7/7/4 


33545 


0222 


22101 


11230 


00000 


01255 


56866 


77677 
2544 


8 


88769 


9 9 


99999 


99844 


20389 


79955 


54544 


45453 


22223 


46554 


43334 


53343 


35676 




344 


44541 


43333 


33346 


76876 


67767 




88766 


66667 


77544 


22232 
3433 


44435 
36656 


43343 

64677 


88765 


55344 


44433 


32223 


34433 


22245 


66766 








2 


45576 


53343 


27899 




1 


11001 


23333 


21111 


11122 
14566 


22677 
87888 


23333 


32236 


66764 


34321 


22333 
0887 


45667 

996 

76688 


54434 
77888 
78766 


9 


99999 


99887 


88899 


98886 


78788 


86433 






1 


24466 


63323 
4 


33456 

65545 

5 


75655 
43666 
56644 






225 


43332 


33222 


23001 


13787 








33445 


35553 


21100 
5445 


21155 
55565 


12889 


99997 


77778 


88788 


87778 


88976 
43333 


65566 
36466 


4 


54658 


89986 


88887 


57778 


64333 


35656 
63565 

777 


89988 


87564 


44444 


44566 


67667 


99989 

7766 

5 


88988 
45576 
53676 




00 


00000 


00133 


31111 


23122 


22676 






687 


88898 


67766 


74666 


47688 




44455 


55553 


45577 


87777 


67878 


77667 


7899 


99979 


99999 


99887 


64334 


20233 


58756 
88 


75343 


43447 


78887 


66666 


66776 


77655 


44456 


73222 


12357 


78887 


77778 


77778 


89653 


32565 




6 


65663 


44533 


46667 


76752 


22001 


33333 


33346 


66662 


23345 


55667 


88887 


76778 


99988 


77522 


12110 


00000 


00012 
576 


44657 
89989 


88787 
66666 






87 


78876 


77666 


66787 


65666 



TABLE IVe. Risk-Return Class 6 



Air Reduction Co.. Inc 
Allen Industries 
American Home Products 
American Potash & Chemical Corp 
American Seating Co 
American Smelting & Refining Co 
Ametek. Inc 
Arizona Public Service 
ARC Corp. 
Austin Nichols 

Babbitt. B l. Inc. 

Barber Oil Corp 

Beaunit Corp 

Bliss & Laughlin. Inc 

Book of the Month Club. Inc 

Bnggs & Stratton 

Ceco Corp 

Chicago Pneumatic Tool Co 

City Stores Co 

Holt Rmehart & Winston 

Curtiss Wright Corp 
DeSoto. Inc 
Nopco Chemical Co 

Symington Wayne Corp 



33311 


11013 


33341 


13343 


34446 


65555 


64444 






767 


76555 


43434 


45532 


11122 


1100 


00010 


00000 


00122 


11111 


13323 
755 


42577 
56555 


799 


99985 


55544 


33467 


77886 


66444 


36666 


66876 


66345 


66642 


23356 


56778 


89876 


77245 


78556 


65688 


88885 


67589 


99997 


54546 


78776 


98576 


65854 


55456 


43688 


88879 
126 


87563 
88898 


67856 
77745 


68566 


65667 


77776 


74544 


267/6 
588 


85646 
87899 


65232 
87411 






4 


32334 


12221 


50234 
0014 


47766 
37887 


3 


33232 


32212 


24567 


66652 


45668 


86776 


77888 


88888 


88762 


45578 


88999 


99988 


75455 


998 


88676 


77768 


88888 


41001 


11221 


00000 


4 


33376 


66651 


33333 


45569 
9999 


98975 
9997 


56455 
69887 








01245 


6567/ 


88776 


68887 


87999 


99989 


98998 


88988 


88888 


88877 


55455 
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CLASS 6 (cont'd) 



Dunhill International. Inc 

Eastman Kodak 

Fawck Corp 

Eaton Yale and Towne Co 

Edison Bros Stores 

Engelhard Minerals and Chemicals 

Eurofund. Inc 

Florida Power & Light Co 

Fruehauf Corp 

Gardner Denver Co. 

General Host 

General Cable Corp 

General Steel Industries. Inc 

Goodrich. B.F 

Gould National Batteries, inc 

Grumman Aircraft Engineering Corp 

Hamilton Watch Co 

Hammermill Paper Co. 

Harsco Corp 

Walter E. Heller Co. 

Honeywell. Inc. 

Ingersoll Rand Co 

Interchemical Corp 

International Nickel Company of Canada 

International Paper Co.. NY 

Kaiser Aluminum & Chemical Corp. 

Kelsey Hayes Co. 
Kennecott Copper 
Kern County Land 
King Seeley Thermos Co 
Louisville and Nashville R.R 
R.H MacyandCo. Inc. 
Martin Marietta 
Masomte Corp. 
Medusa Portland Cement 
Merck & Co.. Inc. 

Monarch Machine Tool Co. 
Natomas Co. 
Neptune Meter Co. 
Norns Industries. Inc. 
North American Car Corp 
Northwestern Steel & Wire Co. 
Norwich Pharmacal Co. 
Pet. Inc. 

Philip Morris. Inc. 
Phillips Van Heusen Corp. 

Murphy (G W. I Industries. Inc. 
Reliance Electric Engineering' 
Republic Steel Corp. 
Reynolds Tobacco 
Rubbermaid. Inc. 
Ryan Aeronautical Co. 
Schsnng Corp. 
Warren Company 
Seaboard Coast Line Railroad 
Seaboard Finance Co. 

Seilon. Inc. 
Singer Co. 
Square D Co 
Tootsie Roll Industries 
Swift & Co 
United C,arr. Inc 
Textron. Inc. 
United Artists Corp. 
Transamenca Corp 
Uniroyal Corp 

United States Shoe Corp 

Universal Oil Products 

Upiohn Company 

Walgreen Co 

Wallace Murray Corp 

Walworth Co 

West Virginia Pulp and Paper 

Whirlpool Corp 

Youngstown Sheet and Tube Co 



1935 


•40 


'45 


'50 


'55 


'60 


"65 


65 


999 


99935 


56668 


88899 


84300 


00000 


05777 


22111 


10000 


00000 


01111 


11223 


45544 


63444 


35 


3266 


66977 


78777 


88899 


99999 


9997/ 


35443 


55 


897// 


66644 


45431 


12344 


55563 


34446 


76454 


45 






2 


34566 


32120 


00123 
34322 


46/66 
3367/ 


65 
65 

5 

55 








57// 


76666 


57999 


998// 


75 








4 


22223 


56654 


43223 


45 




0122 


22236 


75410 


00000 


00001 


10123 


45 


89999 


99999 


99999 


99998 


78889 


99976 


54234 
65/6 


45 
55 


78998 


88776 


77767 


73533 


35567 


88654 


54466 


55 










4442 


34322 


2367/ 


75 








66654 


66676 


54433 


34232 


25 




34553 


32235 


65521 


11124 


4677/ 
898 
. 5 


77644 

76533 

56455 

4777 


55 
45 
55 
75 


1 


11233 


33332 


11122 


33322 


3/767 


86676 


65 


34444 


44432 


33332 


10011 


23334 


45656 


43444 


55 


33 


33444 


45445 


44565 


55634 


76445 


53344 


25 


88654 


44221 


11113 


24432 


33455 


66766 


65566 


45 








5566 


578/6 


68766 
8999 


64555 
98555 


55 
45 


878 


88897 


88877 


7787/ 


64345 


66766 


76454 


45 


45765 


65334 


33320 


12123 


33556 


78766 


54222 


35 










23 


66677 
3312 


67776 
22365 


65 
65 


01655 


55235 


44442 


13333 


44455 


65566 


55344 


45 


55544 


44223 


33446 


65453 


34457 


75431 


22555 


55 






443 


54566 


58676 


51201 


22454 


45 






312 


2235/ 


8887/ 


68878 


86333 
5 


35 
55 










3346 


67420 


10345 


55 








2 


33354 


31123 


34234 


45 






00002 


33300 


00148 


99883 


49888 
3 

5 


75 
35 
35 
55 
65 








11221 


23344 


65433 


20344 


45 





01111 


11100 


00012 


12211 


22244 


467/8 


75 


31111 


00101 


11111 


01221 


10001 


22011 


11344 


45 


22000 


11354 


44467 


76665 


53322 


56688 


88/66 


65 










6 


74543 


25332 
666 


55 
55 


89999 


98768 


88774 


35566 


77778 


888/6 


77877 


75 


10000 


00000 


00003 


32100 


00001 


11001 
65 


11565 
3 
5 

64344 


65 
45 
35 
45 
65 










99886 


54666 


66434 


35 










22 


22111 


12455 


65 










9999 


85557 


65200 


15 
65 






5530 


01134 


467// 


77767 


88788 


65 


81756 


66330 


11015 


34423 


44563 


20111 


03446 


75 






11121 


11112 


12321 


22112 


21233 


35 






33333 


12111 


21221 


24334 


33232 


35 










89 


88875 


78665 
434 


55 
45 




33122 


22234 


55555 


43433 


24354 


56/// 


65 


88999 


88/55 


66668 


76655 


57778 


88887 


8/565 

1344 
8 
3 


55 

45 
85 
45 







11011 


12211 


10000 


00112 


23555 


55 


99899 


9999/ 


888/8 


88887 


7/655 


65655 


44111 


35 


67999 


99999 


8888/ 


77888 


88888 


88733 


46/66 


45 








55553 


32214 


36564 


64656 
88777 


55 
65 


2467/ 


77/67 


77/64 


344G6 


77778 


99998 


9877/ 


65 



TABLE IVf. Risk Return Class 5 

1935 40 45 '50 55 



Abacus Fund 

Ace Industries. Inc 156// 

American Bakeries Co 6565 

American Cyanamid Co. 

American Distilling Co. 3 

American Optical Co 

Wesiinghouse Air Brake 23122 

American Standard Corp 45454 

American Tobacco Co (Com I 00 1 1 

Armco Steel Corp 8 

Armstrong Rubber Co 

Atlantic Coast Line R.R. 12777 

Avco Corp, 

Babcock & Wilcox Co 

Bendix Corp 98655 

Bethlehem Steel Corp. 55655 

Black & Decker Mfg. 

Bobbie Brooks 

Borden. Inc 1 1 

Borman Food Stores. Inc 

Burlington Industries. Inc 

Canada Dry Corp 5233 

Champion Papers. Inc 

Checker Motors Corp 3 

Consolidated Foods Corp 

Continental Baking Co (Del.) 5467 

Continental Insurance Co. 45544 

Continental Steel Corp 

Corn Products Co 23211 

Crown Cork & Seal Co , Inc. 2 

DWG Corp 

Deere & Co. Del 

Delmarva Power and Light 

Dover Corp 

Oow Chemical Co 

Harbison Walker Refractories Co 123 

Eastern Gas & Fuel Associates 

Ex-Cell Corp. 

Fenestra. Inc. 

Fibreboard Corp. 

Firestone Tire & Rubber Co 

Franklin Stores 

Freepon Sulphur Co. 23432 

General Electric Co 65433 

Goodyear Tire Rubber 887 

Granite City Steel 4 

Greyhound Corp 

Halliburton Co 

Ha^eltine Corp 

Hooker Chemical Corp 

Howe Sound Co I Del. I 34554 

Interlake Steel Corp 2566 

.Pennsylvania Glass Sand Corp. 
Johnson & Johnson 

Kansas City Southern Industries. Inc. 56767 
Koppers Co. 

Lehigh Portland Cement Co. 44 

Leonard Refineries. Inc 
Libby McNeill and Libby 
MacAndrews & Forbes Co. 011 

Madison Square Garden Carp. INewl 95555 

Maremont Corp 

Marine Midland Banks. Inc 

McCordCorp 

McDonnell Oouglas Corp 

McGraw Edison Co 

McGraw-Hill. Inc. 1 

Mead Corp 

NVF Co 

National Cash Register Co 

Hudson Bay Mining & Smelting Co . Ltd 

Northern Natural Gas Co 

Northrop Corp 

Otis Elevator 44322 



7/779 
55642 

32446 

22346 

44554 

1000 

87656 

78567 

34567 

55455 
66556 



11111 

33432 

33599 

7/996 
44332 

10000 
11545 

44 
33556 



23332 

22114 
33223 
78555 
44468 



44344 
77889 



77687 

44654 

11100 
5678/ 

22122 
12256 



22244 



99984 
22213 

677/3 

56675 
45557 
00013 
667/6 

7/8/7 
76668 

56540 

55551 

553 

11010 

544 

22225 

5665 

99998 

55546 

22211 

6653 



56667 

3324 
44454 



77775 

40 

3424 
22345 

45561 
23332 
56667 



34445 

55524 

8988/ 

2110 

78889 

44323 

55566 
00001 

66679 
11125 



224 
66676 



34324 



9999 
46/67 
42322 

10078 

55544 
76544 
53311 
6667/ 

66566 
46788 

02333 
22234 
43344 

00011 

45666 
55565 
66566 



(98/54 

888/ 

2110 

445 

78854 

45554 
34544 
00012 



76632 
00001 
42111 
00000 
7/656 

54311 
666/7 



01122 
55443 

22355 

42133 
55456 

11123 
22122 
75644 



54332 



55432 
78899 
21100 
5 
99899 

33432 

54523 
12101 

99999 
65521 



44333 
56543 
66766 

43232 



15 43222 34476 
211 



77888 



44554 
57889 
56543 



7 7 76/ 
00000 
66d32 
64222 
211 
55/89 
556// 
22010 
9998/ 

78899 



866 
55556 
99985 
31434 



1100 0001' 



76668 

54433 
77775 
98877 
7654 
12223 
11101 
24578 
00110 
46766 

01112 
66643 


34555 
54556 

45554 

23544 

67787 
21 
35566 
34532 



44 

22379 



111 
56764 



55446 
12245 

23333 

ooOo 

99998 



2122 
2111 



5665 
33423 



44445 



55555 



43211 



87787 
33222 
45434 
67899 
20002 
44344 
14222 



00001 
78577 

31010 
32124 
12111 

55444 
55432 

45556 

33477 

88655 
10001 
75545 
46545 
89/54 
99999 
11111 
22445 

78889 

99999 
7/776 
12444 
44233 
66766 
67776 
67554 

45678 
00144 

99999 

21000 
44445 

24536 
24535 
78653 
55579 
45655 

54533 

11012 

653 

25545 



65 

68566 

ooc:; 

j^4; 
35'" 



99644 

43 4 

0034b 

75666 

98422 
88/65 
54334 
65555 
44445 
45356 

10455 

67443 
11223 
32233 
99988 
22555 
55645 
22456 
8887/ 
22566 
65665 

2257/ 
54565 
10233 

555 
54444 
2466/ 

454 

66544 

2011 

99867 

64666 
12666 
65222 
62222 
53556 
98777 
00133 
46334 

87544 

99865 
77433 
44344 
35455 
54344 
66334 
43455 

7/655 
45543 

99854 

01344 
43211 
3 
55554 
53344 
31343 
87654 
56/77 

32000 
12244 
45222 
54544 



44 



VRRC, page 16 



CLASS 5 (cont'd) 

Penn fruit Co, Inc 
Pillsbury Co 
Pitisburgh Forgings 
PPG Industries. Inc 

Pottec Inc 
St Joseph lead 



Scon Paper 
Simplicity Panem 
Sterling Drug. Inc 
Bristol Myers Co. 
Stevens, J P 
Storer Broadcasting 
Tidewater Oil Co. 
Trane Co 

Transwestern Pipeline Co. 
Tn Continental Corp. 

IJnarco Industries. Inc. 

Union Oil of California 

Union Tank Car 

UTO Corp. 

United Frun 

United Merchants & Manufacturers 

U S Pipe and Foundry Co. 

US Plywood Champion Papers. Inc. 



Allied Kid 

Allied Stores Corporation 

Allied Supermarkets. Inc. 

Aluminum Co America 

American Chain and Cable Company 

American Commercial Lines Co. 

American Crystal Sugar Co. 

American Hospital Supply 

Amercon Corp. 

American News Co. Del. 

Conwood Corp 
Amsted Industries. Inc. 
Anderson Clayton 
Baker Oil Tools, Inc. 
Bath Industries. Inc. 
Beatrice Foods Co.. 
Beneficial Finance Co. 
Bush Terminal Co. 
Campbell Soup Co. 
Carey (Philip) Mfg. Co. 

Cluett. Peabody & Co.. Inc. 

Cone Mills Corp. 

Container Corp 

Crown Zellerbach Corp. 

Dan River Mills, inc. 

Dana Corp. 

Denver & Rio Grande Western R.R. Co. 

Diamond International Corp. 

Eagle Picher Industries. Co. 

Falstaff Brewing Corp. 

Fedders Corp 

Federal-Mogul Inc. 

Florida Power Corp. 

Link Belt 

Ford Motor Co. 

General American Transportation Co. 

General Portland Cement 

General Telephone & Electronics Co. 

Gerber Products 

Gillette Co 

Gimbel Brothers, Inc. 

Harshaw Chemical Co. 

Hercules. Inc 

Hershey Foods 

Holly Sugar Corp. 

Houston Lighting & Power Co. 

Ideal Basic Industries. Inc 



1935 


'40 

01100 


'45 

00013 


'50 


'55 


'60 
23234 


'65 

65/65 


110 


31101 


nm 








77667 


888811 
2232 


6/534 
34422 


22112 
21344 


8 


88989 


99999 


99988 


787/5 


65/88 


88532 


35665 


bb44b 


5555b 


65332 


36778 


/6455 


46555 





00000 


00000 


00000 


01112 


36443 


22466 
43 


22222 


22100 


00000 


00111 


11111 


22122 


43665 




10 


00001 


00133 


45446 
112 


7886b 

35466 


64555 
67322 
32010 


444 


43343 


33333 


33334 


45553 


36889 


88534 
26777 




55567 


77899 


99999 


99989 


98764 


54455 











7566 


75689 


99/67 


12111 


11111 


11123 


44244 


45655 


66655 


45466 


00000 


00101 


00010 


00000 


01000 


00001 


12112 
555 


01332 


22101 


11110 


00000 


11222 


32212 


23366 






66 


556/7 


77768 


76566 


57555 


66444 


45663 


33215 


44444 


43333 


47767 


75555 








2256 


77856 


58788 


75210 



. Risk-Returr 


Class 4 










321 


22222 


21121 


12112 


11110 


8 


88677 


77767 


77776 


54434 


53354 


45323 








8 


99999 


64533 
8888 


23565 
86334 




88877 


77763 


23344 


45656 


66656 


66322 

1 


45654 


43135 


66775 


24111 


31121 


00100 


1 

02344 




00011 


10000 


00110 


00002 


43567 


87764 


00000 


00000 


00001 


21100 


00000 


00000 


00121 


47777 


77668 


88874 


56667 


87775 
01234 


45566 
43332 


66544 
22101 








3356 


78977 


43444 


55322 


2 


33542 


22221 


11122 


22213 


43222 


22455 




00 


00001 


21111 


10101 


12233 


23545 


53433 


35599 


99999 


99986 


54453 


21112 
56554 


21100 
23677 
45444 


12122 


22444 


33211 


11223 


44554 


32244 
464 


56533 
46211 


88 


78936 


67776 


44545 


68888 


86554 


34544 


6 


77977 


66665 


42223 


56676 


57654 


54456 
34110 


86232 


22466 


66652 


21256 


68864 
988 


44556 
86765 


65344 
44323 


000 


00001 


11111 


22122 


22223 


46564 


56666 


8 






7 


66887 
10 

46 


77667 
00000 

76677 


76322 
00222 

77655 








42355 


55333 
0001 


24565 
13433 


65555 
32444 


3 


33433 


33443 


21011 


12333 


46676 


66433 
5555 


32332 


33234 


44454 


33221 


21112 
663 


33322 
44567 


20111 
65545 






2 


22311 


00000 


12223 


42454 
7666 


211 


00011 


12247 


87764 


44554 


43322 


23455 


B8898 


88888 


88878 


88899 


65436 


86575 


65422 
5433 


2 


23312 


22110 


11111 


12233 


34324 


54654 


10 


00000 


00001 


00001 


10010 


00000 


02444 






4563 


34344 


55435 


55342 


23444 








00 


00111 


34443 


31334 
433 



CLASS 4 (cont'd) 1935 

International Salt Co 01 111 

Imerco. Inc 

Jewel Companies. Inc 43222 

•Kellogg Co 

Kimberly Clark Corp 3 

Kresge.SS 31222 

Lane Bryant 

Lehman Corp. 

PLonllardCo 45222 

Louisville Gas and Electric Co 

lykes Corp 

Madison Fund. Inc 

Marshall Field and Co 

May Department Stores 23233 

McKesson & Robbins. Inc. 

Mercantile Stores Co. Inc. 

Merritt Chapman and Scott Corp 

Mission Development Co 

National Distillers & Chemical Co. 751 33 

National Gypsum Co. 

Neisner Bros 7 

Chesapeake & Ohio Ry 11422 

Northern Pacific Ry 13656 

Pacific Tin Consolidated Corp. 

Penn Dixie Cement Corp. 799 

Pennsault Chemicals Corp. 

Pepsico. Inc. 33222 

Petroleum Corp. of America 

Phelps Dodge 4 

Phillips Petroleum 26454 

Pittsburgh & West Virginia Railway 34777 

Potomac Electric 

Ouaker Oats Co. 

Ranco, Inc. 3 

Red Owl Stores, Inc. 

Simmons Co. 77777 

Sinclair Oil Corp. 68444 

Sola Basic Industries 

Southern Co 6 

Southern Pacific 01656 

Stewart Warner Corp 67777 

James Talcott 7 

Toledo Edison Co. 

Union Carbide Corp 5322 

United-Greenfield Corp. 

United Park City Mines Co. 

Universal Leaf Tobacco 21 

Virginia Electric and Power 

Von's Grocery Co. 

Western Pacific RR. 

Winn Dixie Stores. Inc. 

Woolwonh. F.W. 21111 



'40 


'45 


'50 


55 


21110 


10000 


00001 


10000 


00101 


10000 


00000 


00000 


21110 


10001 


11253 


2210? 


33523 


3334? 


21111 


21244 


23211 


nm 


00000 


00000 


78553 


34324 


55689 


76521 


11112 


22233 


23344 


43322 


21110 


00002 


33211 


00001 
00 


66666 


7/656 


56676 


55544 


33432 


22212 


11223 


22222 






32212 


21111 

3235 

22 

5 


22421 


11113 


33333 


22346 




657 


77788 


87766 


78954 


45545 


53455 


34322 


22023 


33442 


22110 


00013 


66467 


78899 


99888 


89999 




79 


87555 


88887 


99988 


99999 


99975 


56455 
21211 


22498 


99866 


32445 


46777 


33344 


33333 


56544 


45677 


44355 


55532 


44355 


44666 


43323 


33331 


11022 


34665 


88899 


99999 


99878 


77878 
00 


77776 


66667 


66766 


65433 


43433 


22333 


44344 


56766 
0000 


66565 


55689 


99999 


84232 


66577 


88887 


77766 


77776 


76566 


67777 


78877 


77788 




223 


32211 


11011 


21112 


22220 


00011 


22343 
455 


21100 


01103 


00000 


00000 
122 

87686 


11010 


00003 


21210 


00000 



60 


'65 




03434 


44445 


43 


00000 


00021 


23 


2322? 


21454 


43 




5 


53 


48544 


20233 


33 


00012 


21111 


23 


20123 


37777 


73 


23333 


33333 


33 


12000 


11666 


53 


11000 


01345 


43 




23 


33 




4544 


33 


33355 


44312 


23 


33322 


33322 


13 


10100 


23233 


23 


74432 


11223 


23 


2135b 


57765 


43 


67999 


99532 


33 


77543 


33222 


33 


68755 


52443 


33 


21233 


23111 


23 


46654 


43222 


23 


99888 


87655 


33 


66766 


57334 


43 


76888 


87656 


33 


34355 


65434 


33 


87664 


54555 


33 


76656 


54444 


43 


78765 


54211 


13 


67655 


54333 


33 


78887 


79878 


63 


00000 


00244 


33 


0000 


00011 


33 




3433 


33 
3 


33456 


57543 


43 


67766 


54333 


33 


10001 


11000 


23 


22212 


21333 


23 


76676 


54323 


33 


77655 


55454 


43 


01123 


33554 


43 


0011 


01122 


33 


34334 


32133 


43 


52444 


32000 


03 


99 


99987 


73 


00000 


02455 


43 


33322 


21244 


33 
3 


33567 


65433 


33 


000 


00122 


23 


11133 


33444 


43 



TABLE IVh. Risk-Return Class 3 



Allied Chemical Corp. 

Abex 

American & Foreign Power 

Adams Express 

American Natural Gas Co 

American Zinc Co. 

Ashland Oil & Refining Co. 

Associated Dry Goods Corp. 

Associated Investment 

Atchison Topeka & Santa Fe Railway 

Baltimore Gas & Electric Co. 

Bayuk Cigars 

Brown Shoe Co.. Inc. 

Buffalo Forge 

Carriers & General Corp 

Caterpillar Tractor Co. 

Central III Light Co 

Champion Spark Plug Co. 

Chesapeake Corp . Va 

Columbia Broadcasting System. Inc 



33211 


11012 


22221 


10011 


11223 


35556 


76443 


22233 


34445 


55654 


34432 


32335 


54556 


66211 


99999 


99887 


78899 


99999 


9988 


57434 


34111 


78888 


87767 


77776 


67787 


75644 


46554 
11123 


43222 
33432 


99998 


38889 


99998 


99999 


98887 


89888 
88654 


66100 
54332 


66787 


77777 


78778 


88878 


66666 


75555 


64322 






011 


00000 


01024 


46431 


21333 


11444 


45245 


66664 


24334 


45565 


67678 
11000 


76322 
11344 


21333 


33212 


23323 


31212 


22133 


33220 


11445 


00000 


00100 


00011 


23322 


10000 


12221 


11122 








445 


54331 


00001 


10001 




56565 


56666 


67777 


53322 


44444 


32121 




55545 


55540 


23332 


32214 
1 


67777 
22122 


77655 

22322 

3 

32211 








1 


23478 


89774 






214 


44334 


35552 


32346 


64544 



VRRC, page 17 



CLASS 3 Icont dl 

Commercial Credit Cd 
Continental Can Cn . Inc 
Continental Motors Corp 
Cunningham Drug Stnrfis 
Dayion Powei & Light Co 
DeVilbiss Co 
Shamrock OH & Gas 
Disullers Corp Seagrams. lid 
Or Pepper Co 
Domimck Fund. Inc 

Duke Power Co 

E I OuPom OcNemours & Co . Inc 

Ebasco Industries. Inc 

ESB. Inc 

Federated Department Stotes. Inc 

General American Investors 

General American Oil Co of Texas 

General Foods Corp 

General Mills 

General Motors 

Glidden Co 

Great Atlantic & Pacific Tea" Co . Inc 

Great Northern Ry. Co. 

Green Shoe Manufacturing Co 

Hall. W.F. Printing Co 

Hammond Corp 

Helme Products. Inc. 

Udylite Corp. 

Indianapolis Power & Light 

Inland Steel Co 

International Utilities Corp 
Johns Manville Corp. 
Earl M Jorgensen Co. 
Keller Industries. Inc 
Lone Star Cement Corp 
Mclntyre Porcupine Mines. Ltd 
Melville Shoe Corp. 
Middle South Utilities 
Mission Corp. 
Mississippi River Fuel Corp 

Missouri Portland Cement Co. 

Montana Power Co. 

Munsmgwear. Inc 

G.C. Mutphy and Co 

National Aviation 

National Starch and Chemical Corp 

Niagara Share Corp 

North American Sugar Industries, Inc. 

Orange & Rockland Utilities. Inc. 

Pacific Gas and Electric 

United Gas Corp. 
Peoples Orug Stores 
Quaker State Oil Refining Corp 
Raybestos Manhattan 
Riegel Paper Corp 
Rochester Telephone 
South Jersey Gas Co 
Southern Railway 
Southwestern Public Service Co 
Stone & Webster 

El Paso Natural Gas 

Tenneco Corp. 

Texas Gas Transmission Corp 

Texas Utilities Co 

Timken Roller Bearing 

Union Electric Co of Missouri 

Union Pacific RR 

United Aircraft Corp 

Keebler Co 

United Engineering & Foundry Co 

Public Service Electric & Gas Co 
United Shoe Machinery 
US & Foreign Securities 
United States Gypsum 



1935 


40 


'45 


50 


'55 


'60 


'65 




77344 


43432 


34423 


mn 


21111 


12221 


12222 


32 


44711 


10001 


12245 


64433 


3322? 


?333-3 


4311? 


12 


77bbb 


55677 


6666b 


88999 


99999 


98/75 


56433 


32 










42221 


24222 


21000 


02 










1101 


11010 


01111 


22 










1212 


45541 


11123 


32 










55653 


43456 


55322 


22 






1102 


23566 


55444 


22223 


33223 


32 










5653 


43366 


56422 


22 






122 


43233 


32211 


22323 


33554 


32 


64332 


22211 


11110 


11111 


12223 


45544 


44333 


2 
12 

2 
02 


12222 


22122 


22222 


23211 


11256 


88765 


65332 




33422 


33335 


44544 


42223 


35333 


31223 


22 




88676 


67767 


76666 


46545 


54444 


44432 
665 


22 
52 


100 


00010 


00000 


00110 


00000 


11112 


21344 


22 





00000 


00000 


00000 


00000 


11123 


33443 


22 


54343 


44433 


34433 


22233 


33443 


45544 


43011 


12 


88666 


55555 


66756 


67676 


76777 


76455 


45433 
6 


22 
52 


12677 


78766 


67776 


55555 


56667 


88787 


75422 


12 

2 

32 




34686 


66654 


55554 


11100 


10001 


13343 














765 


42 


00000 


00000 


00002 


42100 


00000 


00000 


01233 


32 










453 


44444 


33000 


12 








65311 


00111 


00001 


02233 


22 


33555 


56523 


22342 


21022 


34666 
1 


77665 
12578 


66656 
77322 


42 
22 


65 


55534 


44443 


11123 


44332 


14344 


43333 


32 
32 
32 


35577 


77754 


44424 


33332 


22335 


66554 


33333 


42 


01000 


00000 


00001 


00000 


01135 


76777 


77332 


22 


22 


22221 


11100 


00011 


10011 


11122 


22100 


12 










2 


12111 


11222 


12 






44544 


54355 


57767 


88988 
4445 

22112 


64111 
44443 

1 
11322 


22 
32 

12 
22 


12767 


77565 


55545 


55777 


66424 


22110 


12343 


32 






1110 


00000 


01101 


00121 


10000 


12 




6 


66776 


77666 


56677 


63555 


65321 


12 

2 

32 














76443 


37999 


98789 


99998 


77643 


33366 


52222 


33433 


12 
32 


43211 


11000 


00012 


21100 


01101 


12212 


11122 


22 










3 


32234 


43111 


12 




00111 


11111 


22211 


00000 


00000 


01333 


42 






1133 


32111 


23432 


20001 


00000 


02 


6 


66422 


11123 


32322 


23333 


33211 


14344 

8622 

3 

44 


42 
12 
22 
42 


13999 


99898 


99988 


88888 


88888 


88887 



75333 
00011 


22 
02 


6 


66687 


78878 


87888 


78775 


42445 


55443 


32 






112 


21110 


01112 


32334 
3333 


43221 

21 

1 

42222 


12 
22 
12 
12 


44333 


33244 


44432 


12222 


34555 


45678 
11 


76212 
01333 


22 
32 


11433 


33122 


22221 


12111 


21233 


45456 


45222 


22 


5 


54233 


22231 


34422 


34644 


53433 


44111 


12 


21 


11111 


11103 


33345 


42110 


00000 


00111 


22 






3321 


34434 


42333 


45567 


65311 


22 










10 


11111 


11111 
543 


12 
22 


8 


88787 


78889 


99999 


99999 


98877 


66333 


32 




3232 


22214 


31111 


02222 


36444 


41111 


12 



CLASS 3 (cont'd) 

Walker Hiram Gooderham & Worts lid 
Warner Co 

Wisconsin Electric Power 
Wyandotie Industries. Inc 



1935 



•40 


45 


'50 


'55 


'60 


'65 




1102 


17244 


54444 


3321? 


2111? 

3 

00232 








11 


22111 








99999 


77/87 


77300 



TABLE IVi. Risk-Return Class 2 



AcmeMafkets. Inc 
Allegheny Power System. Inc 
American Electric Power Co . Inc 
American International Corp 
American Motors Corp 
American Sugar Co IN J J 
American Water Works Co 
Anchor Hocking Glass Corp. 
Archer Daniels Midland Co 
Atlantic City Electric Co 

Atlantic Richfield Co. 
Belding Heminway Co. 
Beco Industries Corp 
Bond Stores 
Borg Warner Corp. 
Brooklyn Union Gas 
Canadian Breweries. Ltd 
Canadian Pacific Ry 
Central III Public Service Co. 
Central Southwest Corp 

Cincinnati Gas & Electric 

Cleveland Electric Illuminating Co. 

Coca Cola 

Colgate Palmolive Co. 

Columbus & Southern Ohio Electric 

Commonwealth Edison Co 

Consolidated Edison Co of New York 

Consolidated Laundries Corp 

Demists Supply Co. 

DiGiorgio Corp. 

Empire District Electric Co. 
Fairmont Foods Co. 
Family Finance Corp. 
Federal Paper Board 
First National Stores. Inc. 
Gamble Skogmo. Inc. 
General Cigar Co . Inc 
General Contract Finance Corp. 
Surveyor Fund. Inc 
General Public Utilities 

Giant Portland Cement Co 
Gulf States Utilities Co 
Iowa Electric Light & Power Co 
Kansas City Power & Light 
Kansas Gas & Electric Co. 
Kansas Power & Light 
Peabody Coal Co 
Keystone Steel & Wire Co 
Libby Owens-Ford Glass Co. 
Ligget and Meyers. Inc. 

Maytag Co. 

McCrory Corp 

McGregor Domger. Inc 

McQuay NornsMfg Co. 

MesabiTrustUBI 

Gulf Oil Corp 

Missouri Public Service Co 

Monsanto Co. 

Mountain Fuel Supply Company 

Fuqua Industries. Inc 

National Biscuit 

National City lines 

National Dairy Products 

National Standard Co 

National Sugar Refining Co 

New York State Electric & Gas Corp 

Newport News Shipbuilding & Dry Oock 

Pacific Telephone & Telegraph Co 






00022 


33323 


34333 


21100 


10000 


11333 


77665 


65556 


67889 


99998 


64212 



23333 
00002 


33222 
21111 


89866 


65467 


77888 


887/7 


66555 


65543 


43221 


34322 


22234 


45568 


88877 


77777 


64165 


55624 


43222 


22114 


44565 


34421 


22234 
21 


33211 
10010 


11000 
00000 


3 


33343 


33312 


13444 


20113 


56444 


33321 


33122 


21222 


33322 


01121 


22135 


67564 
11111 


44200 
10111 


45222 


21222 


22232 


34245 


66756 


67766 


55232 


33132 


22331 


11100 


24566 


64434 


35455 


53210 


554 


44332 


33325 


43322 


22212 


21121 


11111 






013 


21345 


34435 


64332 


12111 


6 


55444 


55543 


23355 


55534 


44555 


66222 


54100 


00023 


34557 


87522 


21111 
211 


OHIO 
11122 


00000 
33222 


01223 


33335 


67889 


88788 


79988 

1 

0001 
000 


98887 

322 

13322 

11000 
12121 


66100 
10111 
31122 

00223 
10111 


11000 


00000 


00000 


00000 


01111 


22111 


11233 




34532 


22212 


11133 


33333 
0000 


43123 
01100 


56777 
00022 






01 


10000 


00000 


11110 


00011 


54211 


11122 


22224 


43211 


11110 


00011 


00100 




2354 


33437 


64222 


11110 
0000 


01113 
00011 


10311 

22221 

11 

12344 










1 


12221 














32101 


43100 


00011 


11111 


11000 


00000 
25 


00000 
44455 


00111 
67533 


12111 


00021 


11113 


32322 


23223 


21000 


00112 

2 

00000 


8 


88566 


67999 


999 


88841 


10101 










1100 


01100 


11122 










012 


13211 
12111 


10011 

22 

00101 

10122 













01100 


00122 










9 


99997 


46644 






5550 


00123 


65565 


44444 


34223 


7 


67944 


44433 


12234 


33323 


77654 


43233 


00111 


11000 


00001 


21100 


00000 


11000 


00000 


45888 


88753 


34569 


98865 


66442 


23236 


76554 


2034 


44864 


44444 


33443 


21112 


21222 


14211 
3000 








3 


22223 


54444 


34311 








11 


12333 


68754 


42123 
00 


1 


10101 


11110 


01255 


54544 


56544 


53233 
100 


11211 


11111 


00102 


32211 


11111 
5423 


11000 
32243 


01122 
12000 


44222 


22221 


22224 


32221 


22211 

00000 
1 


13110 

01211 
00000 


00112 

1 

U727 

00112 








1111 


25666 


62210 


02212 


10000 


00000 


00000 


00000 


00000 


00101 


13354 
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CLASS 2 (cont'd) 


193b 


•40 


'45 


'50 


'55 


'60 


'65 




J C Pennev Co 


i 


11111 


11100 


00012 


21111 


12111 


20000 


01 


Pennsylvania Power & light Co 










0111 


10110 


01222 


21 


Marquette Cemeni Mfg Co 












2 


21100 


11 


Procter and Gamble Co 


1 


11100 


11000 


00000 


12253 


33100 


00234 


21 


Public Service Co of Colorado 










0111 


21012 


22222 


21 


Public Service Co ol Indiana. Inc 












11100 


00112 


11 


Rochester Gas and Electric Corp 












00000 


10233 


21 


Rockwell Standard Corp 


7 


77876 


66541 


13354 


66668 


88777 


54321 


11 


Royal Dutch Petroleum Co 












5 


44111 


11 


San Diego Gas and Electric Co 












1 


11111 


11 


Sears. Roebuck & Co 


76543 


44332 


22212 


11122 


22211 


13223 


42334 


21 


Skelly Oil 


57344 


32445 


66654 


34355 


66767 


88877 


54100 


01 


South Carolina Electric & Gas 










221 


21123 


32432 


11 


Southern California Edison Co 


2100 


00010 


00001 


11110 


10111 


12110 


10012 


11 


Southern Indiana Gas i Electric Co 












22111 


11011 


01 


Southern Natural Gas 








1001 


12221 


21345 


46211 


11 


Standard Brands 


21110 


01011 


11125 


54422 


23323 


32222 


32322 


11 


Standard Oil Company (Indiana] 




2 


22222 


11011 


22434 


67666 


54233 


11 


Beech Nut Lite Savers. Inc 


20000 


00000 


00000 


00000 


00010 


00111 


22012 


11 


Suburban Propane Gas Co 
















1 


Sucrest Corp 










2212 


32333 


32000 


01 


Sunbeam Corporation 










6 


44433 


32000 


01 


Texas Eastern Transmission Corp. 
















1 


Tornngton Co 
















21 


Western Can Corporation 














66 


31 


United Corp 


5 


55355 


66899 


99999 


86500 


11111 


01111 


11 


Consumers Power 










000 


00000 


00011 


11 


US Lines Co 


55767 


77689 


99998 


78776 


43434 


34455 


34100 


01 


US Tobacco 


00000 


00000 


00001 


31100 


00000 


00000 


00133 


31 


Van Raalte Co 
Wayne Gossard Corp 


31333 


34353 


34311 


12234 


32321 
4233 


12234 
12334 


22000 
42210 


01 
01 



Abbott Laboratories 
Alabama Gas Corp 
Amalgamated Sugar Co 
Amerada Petroleum Corp 
American Bank Note Co 
American Can Co 
American Investment Co. 
American & South African Investment 
American Telephone & Telegraph Co. 
Benquet Consolidated Inc. 

Boston Edison 
C.I T. Financial 
California Packing Corp 
Campbell Red Lake Mines Ltd 
Carolina Power & Light Co 
Central Aguirre Sugar Co 
Central Hudson Gas Electric Corp. 
Cities Service Co 

Coca Cola Bottling Co of New York 
Columbia Gas System Inc 

Allied Mills Inc 
Cuneo Press 
Detroit Edison Co 
Domes Mines Ltd. 
Duquesne Light Co 
Equitable Gas Co 
GAC Corp 

General Bancshares Corp 
General Finance Corp 
Genesco Inc 

Great Northern Iron Ore Properties 
Great Western Sugar Co 



. Risk- Return Class 1 










111 


11111 


22244 


54222 
2212 


33232 

00 

10000 


2011 


00222 


22233 


22255 


56643 


45867 


55355 


55766 


68445 


56678 


88877 


54322 


22000 


00000 


43221 


11001 


11112 


10000 


00122 


22111 


11000 








21100 


00011 


12120 


00101 



11222 


11100 


00000 


00000 


00000 


00000 


00001 










9 


89884 



00000 
00000 


76433 


22222 


23334 


32322 


22222 


23210 


00112 


12444 


44324 


56676 


54333 


44444 
012 


44432 
24222 


23232 
00000 
21222 





00001 


11233 


33000 


00000 
0000 


00000 

00000 

7866 


12121 
00000 
54000 


57766 


65444 


45578 


88866 


63422 


11111 


21000 






4321 


01111 


11133 


33222 


23211 








43433 


33344 


54367 


76300 


21000 


OHIO 


00000 


00000 


•ooooo 


00000 


00001 


11010 


00100 


00016 


64200 


01146 


54342 

11 

20111 

1 
1210 


10000 
21100 
11000 
11111 
12221 
11201 






2 


35555 


41100 


01135 


43210 


21233 


34534 


33330 


11100 


00010 


11214 


33111 


2444c 


32101 


11231 


11000 


01012 


10000 


01111 



40 



00 



CLASS 1 (cont'd) 



Hackensack Water Co 

Homestake Mining Co 

Idaho Power Co 

Illinois Power Co 

Industna Electnca de Mexico S A 

International Harvester Co 

Interstate Power Co 

Iowa Illinois Gas & Electric Co 

Iowa Power & Light Co 
Kroger Co 
Laclede Gas Co 
Lilly Tulip Cup Corp 
Lockheed Aircraft 
Lone Star Gas Corp 
Long Island Lighting Co. 
Marathon Oil Co 
Midwest Oil Corp. 
Continental Oil Co. 

Minnesota Enterprises. Inc 
Minnesota Power & Light 
Montana Dakota Utilities Co 
National Fuel Gas Co 
National Lead Co. 
National Service Industries. Inc 
National Tea Co 
New England Electric System 
Norfolk & Western Ry 
Northern States Power Co 

Oklahoma Gas and Electric Co 
Oklahoma Natural Gas Co 
Outlet Co 

Owens Illinois. Inc. 
Pacific Lighting 

Panhandle Eastern Pipe Line Co 
Peoples Gas Light & Coke Co. 
Puget Sound Power and Light 
Reliable Stores 
Safeway Stores 

St. Joseph light and Power 

Shell Oil Co. 

Shell Transport and Trading NY S 

Mobil Oil Corp. 

Southeastern Public Service 

Ohio Edison Co. 

North American Rockwell Corp 

Standard Oil Co. of California 

Standard Oil Company (New Jersey) 

Consolidated Natural Gas Co. 

Standard Oil of Ohio 
Starred L. S. 
Sterchi Bros. Stores 
Sun Oil 

Sunray DX Oil Co. 
Texaco. Inc. 
LGI Corp 

Philadelphia Electric 
Niagara Mohawk Power 
US Playing Card Co 

Utah Power & Light 
Washington Gas Light 
Washington Water Power Co. 
Waukesha Motor 
Wheeling and Lake Erie Ry. 
Wisconsin Public Service 
Woodward Corp 
William Wngley. Jr. Company 



1935 


"40 


■45 


'50 


'55 


'60 


'65 


000 


00000 


00000 


00000 


00000 


00000 


00000 C 


00000 


00000 


00003 


31000 


00013 


32221 


00000 ,'[ 











00000 

01 

2348 


13232 
12211 
88750 


100G0 |C 
21111 C 
13000 


65543 


44223 


34454 


33232 


22344 


55455 

000 

00000 

01000 


44211 
01000 ( 
00000 ( 

00000 ( 


32 


22211 


11100 


00011 


11000 


00001 


21121 ( 


00000 


12255 


56668 


86643 


31100 


10111 


22222 




0111 


11111 


24456 


43322 


66321 


21000 ( 








65535 


47776 


54333 

23 

00000 


56432 
32000 ( 
00010 ( 


67233 


22323 


43454 


55445 


67875 


55667 
444 


77110 ( 
33101 ( 


57444 


43334 


33442 


43344 


33434 


57877 


74221 ( 


25344 


55796 


55668 


89999 


98764 
55 


51332 
00001 
66434 


21000 1 
11000 ( 
82000 
11110 1 


22122 


22224 


44544 


43332 
1 


22335 
10000 


78877 
00000 


65110 
01111 


55443 33223 


44567 


54545 


66512 


34222 
11 


34222 
22221 


11233 
11110 


00100 


00011 


11110 


00000 


01112 



33344 
01000 

12223 
2 


43100 
11000 

21211 
21111 


10000 


00000 


00000 


00000 


00000 


01010 


00000 


32011 


00222 


22110 


00122 


32212 


36444 


42433 


11 


11011 


00112 


20000 


00000 


00000 


00000 








2 


11211 


33344 


33100 


43322 


22242 


23212 


00000 


11121 


11123 


33332 
01000 






4332 


32212 


10000 


11221 


11000 


1 


11143 


33311 


00121 


11110 


01001 
00101 


00112 
00000 


16434 


43355 


55541 


01244 


45534 


54522 


22011 
000 


222 


22222 


22334 


43223 


23433 
1101 


56533 
12212 


22011 
11011 




66576 


66665 


65545 


45667 


88766 


54321 


12111 


11112 


21223 


32001 


12344 


46655 


42000 


y) 22100 


00012 


22223 


21111 


12333 


46644 


32000 








11 


21111 


01000 


00011 








0122 


34566 


76545 


43000 


4 


44354 


44541 


33122 


24352 
3211 


00001 
00000 


10000 
00000 


21000 


00001 


11110 


10000 


01121 


11100 


00000 








77 


64555 


78777 


54000 


24222 


22223 


22231 


10001 


13444 


56645 


44222 


1 


11111 


01124 


54222 


21100 


00001 


22221 








00 


00000 


01011 
21111 


01011 
00001 






1 


21211 


11010 


00000 
13223 


01112 
32100 








32000 


00000 


00011 
221 


12221 
01111 






5555 


66633 


33356 


55554 


33111 


00000 


00001 


00110 


10000 


00000 


00000 
00 


00000 
00111 






72 


23333 


33366 


77883 


77311 


00000 


00000 


00001 


10000 


00000 


00000 


00000 
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Footnotes 



This paper differs from that of Black, Jensen and Scholes (BJS) in a number of respects. The 
differences will be summarized here, although a full understanding may require a prior reading o1 
the remainder of this paper. First, BJS require only 24 months of data to estimate a security's 
risk-return class (although they use up to 60 if available); we require 60 months. Second, BJS use 
beta to determine risk-return classes, while we use market sensitivity. Third, BJS measure perfor- 
mance in terms of monthly returns; we use annual values (both because an annual holding period seems 
more consistent with an annual review of risk-return classes and because annual rebalancing involves 
smaller transactions costs than monthly rebalancing of the portfolios). Finally, we report geometric 
means as well as arithmetic means for those interested in long-run performance and provide data con- 
cerning stability of risk-return classes for those interested in the characteristics of individual 
securities. 

For a derivation of this relationship, see Sharpe (7). 

In general, the value of beta describes the majority of the fluctuations in returns for these 
portfolios. The coefficients of determination for the regressions of portfolio return on market 
return were: 

Strategy Coefficient of Determination 

10 .94 

9 .94 

8 .95 

7 .95 

6 .98 

5 .98 

4 .92 

3 .94 

2 .88 

1 .87 

This relationship can be derived from a model in which it is impossible to borrow without limit at 
the same rate of interest at which one can lend. If the portfolio used as a market surrogate is 
riskier than the optimal combination of risky securities for one who plans to lend part of his funds, 
the result follows directly as long as the market surrogate is on the efficient frontier. The true 
"market portfolio" (which includes all assets -- e.g., corporate bonds, real estate, etc.) may well 
be less risky than the typical index of New York Stock Exchange common stocks such as that used in 
this study. It is entirely possible that if a better surrogate for the market portfolio could be 
obtained, the relationship between average return and beta would intercept the average return axis 
very near the interest rate of safe investments. 

The sum of the figures in a row in either Table I or Table II will be less than 1; the difference 
represents cases in which the security could not be classified in the later period due to lack of 
adequate data. 
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